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; Create your own custom 
bs character sets with this 
pale Rae _ utility for the 64 and 1525, 
ve) 5 MPS-801, and MPS-803 
F \ printers. 
ae 4 
Maze-Mania 
Mastering this fast-paced 
game for the 64 is no 
Y 4 easy task. 
Weather Prophet \ fn this Issue: 
An amazingly reliable lorizons: 
forecaster for the 64 and POwer BASIC: | Programming the 128 
Plus/4. QuickScan | User Group Update 
08 Fieading programs on the | Besinners: From Machine 
P l screen is simplified with Language To BASIC 5 
| ll this electronic ruler for the | 
LU 64 and VIC-20. 
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AMAZING DAISY 





If you have been searching for a letter 
quality printer you have probably found 
the flood of claims and counterclaims to 
be a real roadblock in your search. Not 
long ago we were in the same position. 
We tried to determine which daisy wheel 
printer had all the features our 
customers wanted, yet would not set 
them back a month's salary. Recently 
several manufacturers have introduced 
machines that had features we were 
seaching for. After a thorough assess- 
ment, we eliminated one model after the 
other for lack of one feature or another 
until we only had one left. 


THE RESULTS ARE IN 

We found the printer which has all the 
features anyone could want. The winner 
is the Aprotek Daisy 1120, a heavy- 
duty workhorse printing at 20 characters 
per second, The manufacturer is Olympic 
Co, Ltd, a highly respected Japanese firm, 
FEATURES GALORE 

This printer has it all, To start with, it 
has a front panel Pitch Selector button 
with indicators which allows 10, 12, 15 
characters per inch (CPI) or 
Proportional Spacing, There is a Select 
(Online) button (with indicator) and a 
Line Feed button. You can also set Top- 
of-Form or Porm Feed with the touch of 
the TOP button. Other front panel in- 
dicators include Power and Alarm. 

To load a sheet of paper, simply place 
it in the feed slot and pull the paper bail 
lever, PRESTO! The paper feeds automat 
cally to 4 1 inch top margin and the car- 
riage aligns to the selected left margin. 
Tn this manner, each page can have iden- 
tical margins automatically. You can con- 
tinue to compute while the 
Daisy 1120 is 












SS 


printing, The built in 2K buffer frees up 
your computer while printing a page or 
two allowing you to go to your next job. 
Tor ut Your printer to work, the 
Cut Sheet Feeder option is great for 
automatic printing of those long jobs. 
Also available is the adjustable Tractor 
Feed option. Compare our option prices! 
of all the Daisy 1120 is quiet: only 
dB-A (compare with an average of 
5 dB-A for others). 


COMPLETE COMPATIBILITY 

The Daisy 1120 uses industry standard 
Diablo® compatible printwhi Scores 
peface styles are available at most 
computer or stationary stores. You can 
pop in # 10, 12, 15 pitch or proportional 
pnntwheel and use paper as wide as 14”. 
At15 CPI you can print 165 
columns—great for spreadsheets, 

The Daisy 1120 uses the Diablo 
Hytype 1 standard ribbon cartridges, 
Again universally available. 

Not only is the hardware compl 
compatible, the control codes recognized 
by the Daisy 1120 are Diablo 630” 
Compatible (industry standard). You can 
take advantage of all the great features 
of word processing packages like 
Wordstar® , pis: Write® , Microsoft 
Ward® and most others which allow you 
to automatically use superscripts, 
subscripts, automatic underlining, hold- 
face (shadow printing) and doublestrike, 

‘The printer has # set of rear switches 
which allow the use of standard ASCII as 
well as foreign character printwhi 
Jength can be set to B, 11, 12, or 
, The Daisy 1120 can also be switch: 
by to add automatic line feed if required. 





































RSs 





W! FULL SIZE, FULL FEATURE, LETTER QUALITY AT ONLY $353 


THE BEST PART 

When shopping for a daisy wheel 
printer with all these features (if you 
could find one), you could expect to pay 
$600 or $700 dollars. The options would 
add much more. Not now! We have done 
our homework. We can now offer this 
printer for only $353, Order yours todayt 
NO RISK OFFER 

‘Try the Daisy 1120 for 2 weeks. If you 
are not satisfied for ANY reason we will 
refund the full price~promptly, A full 
1-year parts and Jabor warranty is 
inchided. 
THE BOTTOM LINE 
Aprotek Daisy 1120 (Order#1120) $353. 
w/standard Centronics parallel interface 
and 2K buffer. 
Options 
Auto Cut Sheet Feeder (#1110) $188 
Tractor Feed (#1112) $77 
Accessories 
8) Cable for IBM PC® and compatibles 
(#1103) $26 
Interface with cable: *TI-99/4A (#106) $66 
pple I or Ne (#1104) $76 
+All Commodore (except Pet) (#1105) $44 
All Atari (#1107) $66 
Skippins i6 $11—UPS continental USA, If you are in 
A hurry, UPS Blue or Air Parcel Post (second day 
aur) is $25. Canada, Alaska, Mexico and Hawait are 
$31) (ain, Other foreign is $60, (air). California 
residents add 6% tax. Prices are cash prices—VISA, 
UC add 3% to total, We ship promptly on 
‘orders, cashier's checks, and charge cans, 


iw TA-dlay clearings fur checks, No ©.0.0/%. Pay- 
ment it) US dollars only, 


TO ORDER ONLY CALL TOLL FREE 
(800) 962-5800 USA 
(800) 962-3800 cauir, °°?) 
Or send payment to address below; 
Technical Information & Customer 
Service; (805) 987-2454 8-5 psty 
Dealer Inquiries Invited 


PAUSS APROTER, AU sights reserved. 
Drademsike Diahlo, ‘Te 1,63 
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Teaches you the language of the future. Oe 

Comprehensive subset of language. Training 

includes: editors syntax checker, hha as RTS 75 
compiler; assembler; disassembler, won ‘ 
handbook” $59.98 —_ cde anleey, BUREN 


OFTHE CONMODOK! 


: 
fe: [eq Je me 
Macro assembler and extended monitor. : ea i a 3 


Supports all standard functions plus @ § : Peony ek 
floating point constants Monitor t 

supports bank switching, quick trace, 
single step, more, $39.95 































ANATOMY OF C-64 Insider's guide to TRICKS & TIPS FOR C-64 Col- 
the ‘64 internals. Graphics, sound, 1/0, ection of easy-to-use techniques: advanced 
kernal, memory maps, more. Complete graphics, improved data input, enhanced 
commented ROM listings. 300pp $19.95 BASIC, CP/M, more. 275pp $19.95 


ANATOMY OF 1541 DRIVE Best 1541 REPAIR & MAINTENANCE 
handbook on floppy explains all. Many Handbook describes the disk drive hard- 
examples and utilities. Fully commented ware. Includes schematics and techniques to 
1541 ROM listings.  320pp $19.95 keep 1541 running.  200pp $19.95 












Compiles complete BASIC language 
into either fast 6510 machine language 
and/or compact speedcode. Supports 
overlays and many extended BASIC 


commands, $39.95 MACHINE LANGUAGE C-64 Learn ADVANCED MACHINE LANGUAGE 


6510 code write fast programs. Many Not covered elsewhere: - video controller, 
samples & listings for complete assembler, interrupts, timers, clocks, 1/O, real time, 
monitor, simulator, 200pp $14.98 extended BASIC, more, 210pp $14.98 


t . GRAPHICS BOOK C-64 - best ref- PRINTER BOOK C-64/VIC-20 
powerful editor (41K source file); com- ‘erence covers basic and advanced graphics. Understand Commodore; Epson-compatible 
piler (6510 code), library (supports many Sprites, animation, Hires, Multicolor, _ printers; 1520 plotter. Packed: uals: gr. 

i i $ x lightpen, 3D-graphics, IRQ, CAD, pro- _ phics dump; 3D-plott; commented MPS801 
functions) and linker. “NEW; $79.95 jections, curves,more." 3S0pp $19.95 ROM listings, more.  330pp $19.95 


Pete 





Full compiler per Kernighan & Ritchie 
standard, but without bit fields, Includes 





Based on Forth 79 (+ parts of '83). 
Supports hires graphics and sound 
synthesizer. Full screen editor, 
programming tools, assembler. samples, 
handbook. NEW! $39.95 






OormsTIC AUTO SALES 
400{ 






SpE gERAL moron 
Professional quality charts and graphs instantly. ine AMERTEAR noToRS. 
Easy-to-use menus. 8 chart formats. Two size 

hardcopy. Accepts data from Multiplan, 
CalcResult. Supports statistical functions. $39.95 
‘iso availabe: 

CHARTPLOT-1520 fine output 


Professional development package for 
serious applications. Indexed file sys- 
tem, full screen & printer management, 
programmer's aid, multiprecision math, 
royalty-free runtime, more. $39.95 





to inexpensive 1520 plotter. $39.95 . 
CHARTPLOT-64 unsurpassed @3 on e7 on an 90 
quality charts on most XY-plotters. $84.95 PROJECTEO VEAR 





Full Pascal supports graphics, sprites, 
file management, more. Supports 
pointers, dynamic memory man- 
agement, machine language. Compiles 
to fast 6510 machine code, $30.98 


POWER PLAN is our top-rated, full-featured Super Spreadsheet with Graphs... 
spreadsheet for both your business and personal 
needs. All menu selections are clearly displayed on 
y screen, Builtin HELP screens guide you through 

i this powerful package. Immediately make 2D or 
; 3D pie, bar, line and point to point graphs from 

‘ your spreadsheet using up to 8 windows. Features 

cell protection and formatting, split screen, all 
major math functions, 25K worksheet space, 255 
rows X 63 columns. 200 page handbook. $49.95 








Add 50+ graphic, sound and utility 
commands to your programs with this 
super development package. Free 
distribution of RUNTIME version - no 
royalties! 339.95 








Basic cross-reference 
Indispensible tool for BASIC pro- 
grammer. Cross-references all refer- 
ences to variables, constants and line 
numbers. Sorts them into alphabetical 
order for convenient uses. $17.95 


Superb lightpen design tool. Exact placement 
using Accu-Point positioning; 2 complete screens; 
draw LINEs, BOXes, CIRCLEs, ELLIPSEs; 
pattern FILLing; freehand DRAW; screen COPY; 
ZOOM for detail. Two size hard-copy. Requires 
good quality lightpen. $49.95 
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Authoritative books 


FROM ABACUS SOFTWARE 
... A NAME YOU CAN COUNT ON 
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ADVENTURE 

GAMEWRITENS 

HANDBOOK TOK 
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SCIENCE/ENGINEERING ON C-64 
In depth intro to computers in science. 
Topics: chemistry, physics, biology, astro- 
nomy, electronics, others. 350pp $19.95 


CASSETTE BOOK C.-64/VIC-20 
Comprehensive guide; many sample pro- 
grams, High speed operating system-fast 
file loading and saving, 225pp $14.95 


IDEAS FOR USE ON C-64 Themes: 
auto expenses, calculator, recipe file, stock 
lists, dict planner, window advertising, 
others. Includes listings, 200pp $12.95 


COMPILER BOOK C-64/C-128 All 
You need to know about compilers: how 
they work; designing and writing your own; 
generating machine code, With working 










































Optional Diskettes 


for books 
For your convenience, the programs 
contained in each of our books are available 
‘on diskette to save you time entering them 
from your keyboard. Specify name of book 
when ordering. $14.95 each 





& POKES - Programming 
ies that will amaze you. Includes in- 
depth explanations of PEEK, POKE, USR 
and other commands.  200pp $14.95 


ADVENTURE GAMEWRIT! 
Step-by-step guide to designing and writing 
your own adventure games. With automated 
Adventure game generator, 200pp $14.95 





CAD BOOK for C-64/C-128 Intro- 
duction to computer aided design, 2D and 
3D, reflection, zooming, macros. Samples 
use SIMON's Basic. — 250pp $19.95 


MORE TRICKS & TIPS Dozens of © 
more helpful programming techniques: soft- 
ware protection; new BASIC commands; 
interrupts; ROM routines; the KERNAL, 
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‘An XPER Application advising 

on whol kind of cer to buy 
XPER 1s the tirst expert system for the C-64 and C-128, 
Ordinary data bases are good for reproducing facts, but 
XPER lets you derive knowledge from a mountain of 
facts and helps you make isi Scientists, 
doctors and professionals are currently using XPER in 
their research projects. 


Tomer 





The XPER system puts your information into a 
knowledge base, A knowledge base cconsists of a variable 
number of objects - such as trees; features - such as 
“what kind of leaf does it have?"; and attributes - such as 
6 inch needles. After describing your knowledge base, you 
can easily enter your information using XPER's complete 
entry/maintenance facilities. 








Then, XPER's very efficient searching techniques will 
guide you through’ the most complex decision making 








example compiler, 300np $19.95 hardware tins. etc. 250pp $19.95 | 


criteria, You'll also benefit from XPER's full reporting 
Other Books Coming Soon!! $59.95 


capabilities and ease of use. 











ORDERING INF’ 
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TAS-64 
CHART YOUR OWN STOCKS... 

Sophisticated technical analysis charting package 
for serious investor, Capture data from DJN/RS 
or Warmer Services or enter and edit your data, 7 
moving averages, 3 oscillators, trading bands, 
least squares, 5 volume indicators, relative charts, 
much more, Two size hardcopy, 





P.O. Box 7211 Grand Rapids, Michigan 49510 


ee) Sz 
TEE, 


For postage and handling Include $4.00 por order 

item. Money order and checks in U.S, Dollars on! 

Express accepted. Michigan residents please incl 
For fast service call 


For tree catalog, please return this coupon to 
Abacus Software, P.O. Box 7211, Grand Rapids, MI 49510 


PHONE: (616) 241-5510 


DATAMAT-64 

ORGANIZE YOUR DATA 
Powerful, easy-to-use data management package 
uses menu selections, Free form design: 50 
fields/record; 2000 records/disk. Sort on mul- 
tiple fields in any combination, Complete selec- 
tion and formatting for printing reports, $39.95 


KTOMAT-64 
WORD PROCESSIN' 
Flexible wordprocessor displays 40 or 80 columns 
with horizontal scrolling. Menu selections make 
TEXTOMAT easy to use, Quickly move from 
editing to formatting to merging to utilities. 
Supports virtually any printer. Can support 
foreign languages. $39.95 












Foreign orders include $8,00 per 
Mastercard, VISA and American 
% sales tax. 





(616) 241-5510 





Telex 709-101 





























QUICKCOPY V2.0 Py name 
PROTECT Your DATA ... ™ Address 
Backup your valuable data with the fastest disk 
copier we've seen to date. Copies entire disk in City 
2.5 minutes on two or 3.5 minutes on one 1541. 
Very useful utility. $19.95 State Zip 





IF YOU CAN FIND 
A BETTER PROGRAM 
WE'LL BUY IT FOR YOU! 





WORD WRITER “¢:2il, 
Now with 85,000 word Spelling 
Checker 

+ An efficient, 80-column professional 
word processing system which includes 
a spelling checker and built-in 
calculator. 

Contains all the features you'll need for 
everyday word processing, plus most of 
the sophisticated features found in 
More expensive programs: document 
chaining, form letter printout, page 
separations, horizontal and vertical 
scrolling, and more, 


With Timeworks you get more 
power for your dollar 

You can use each program alone. Or 
interface this trio — one at a time if you like 
-into a completely integrated productivity 
system that delivers all the power and 
features most of you will ever need... at 
a cost that lets you enjoy their use. 


Look for these and other Timeworks pro- 


grams at your favorite dealer. Or contact 
Timeworks, 444 Lake Cook Road, Deer- 
field, IL 60015. Phone: (312) 948-9200. 


DATA MANAGER 2 


Faster, more efficient, more 
versatile 


+ Acomplete general information storage 
and retrieval system with report-writing, 
graphics, statistics, and label-making 
capabilities. 

Exclusive X-SEARCH, X-SORT, and 
X-CHART features allow you to cross- 
search any category of information; sort 
items alphabetically, numerically, or by 
date; break down statistical information 
into categories; and graphically view 
your results. 


‘With Timeworks you get more 
than software 

You Get Our Customer Technical 
Support Team 

At the other end of our toll-free hotline, 
you'll find our full-time Customer Techni- 
cal Support Team. Free of charge to all 
registered users. 


You Get Our Liberal Trade-Up Policy 
You'll find the details inside each package. 


Other Timeworks Progra 
Evelyn Wood Dynamic Reader @ Sylvia 





SWIFTCALC » SIDEWAYS 


New easy-to-use spreadsheet 
for home and small business use 


+ 250 rows and up to 250 columns (128K 
version) provide up to 62,500 cells 
(locations on the spreadsheet) in which 
to place information. 

+ Performs mathematical functions up to 
17 digits. Allows the use of minimum 
and maximum values, averages, sums, 
integers, absolute values and exponen- 
tial notation. 


* With Timeworks you get our 


Money Back Guarantee 


If you can find anything that works better 
for you, simply send us your Timeworks 
program, your paid receipt, and the name 
of the program you want, along with your 
check or credit card number for any retail 
price difference. If it's available, we'll buy 
it for you."* 









Available for Apple, IBM, 
Commodore 64 and 128, 
and Atari Computers.*** 


The 








Porter's Personal Finance Series ® Swiftax ® 
Cave of the Word Wizard = Business Systems 
‘= The Electronic Checkbook # The Money 
Manager ® Wall Street 





More power for your dollar. 
“ter vai or 90 dys trom dt ct purchase 
i (ceerlebyncend tose ‘Computer, inc., International Business Machines Corporation, and 
© 1985 Tener Al rh rsered. 


We aa 
CONntents 


features 


The New Commodore Amiga: A Hands-On Report Charles Brannon 
Amiga Software: Something for Everyone Selby Bateman ....... 
The Summer Consumer Electronics Show: Beyond the Shakeout Lance 
CES Perspective: The End of the Tap Dance Kathy Yakal 


reviews 


F-15 Strike Eagle Neil Randall 
On-Court Tennis Kevin Martin ... ¢ 
Cave of the Word Wizard Neil Randall . 
B.C. Il: Grog’s Revenge James Trunzo .. 
Legionnaire Neil Randall ... 
Adventure Writer, Dialog, and The 
Chipwits Arthur Leyenberger .. 
Also Worth Noting 


games 


Maze-Mania Mark Tuttle, Kevin Mykytyn, and Philip Nelson 
Tracker Ned W. Schultz ...... 
Friendly Alien Cal Overhulser . 


education/home applications 


Computing for Families: In Search of the Computer Sandbox, Part 1 Fred Quee Sri 
Weather Prophet George W. Miller 
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Hints & Tips: Recycling Selected DATA Statements Gordon J. LeVee 46 64/V/+4/16 
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Zounds!, Part 3 Lawrence Cotton ... 81 64 
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editors 


NOUvES 


In the most recent issue of COMPUTE!, 
our sister publication, we chided 
Commodore for apparently send- 
ing Amiga systems to competitors 
while consciously making a deci- 
sion to withhold them from us. 
We're pleased to report that in the 
interim we've discovered several 
things. Commodore allowed sever- 
al competitors access to the Amiga, 
but did not send them systems. 
And, more importantly, since we 
brought the situation to their atten- 
tion, Commodore’s new manage- 
ment team and their assistants have 
been extremely helpful in rectifying 
our concerns. Harmony has re- 
turned to our editorial halls, and 
you'll find a rather exciting story in 
this issue on the new Amiga from 
Commodore. 

It seems likely that the Amiga 
and the new ST from Atari are go- 
ing to revitalize the personal com- 
puter industry. 

These machines represent a 
leap to a higher level of technology. 
New, synergistic technologies have 
been brought together to create a 
significant advance in power. New 
microprocessors, new storage de- 
vices, and new video screens equal 
far more than the sum of their parts. 

When COMPUTE! first started 
publishing in 1979, it was called 
“The 6502 Resource Magazine” be- 
cause the home computers then 
available—Apple, Atari, Commo- 
dore PET, and others—all con- 
tained the 6502 microprocessor 
chip. The 6502 has been aban- 
doned by the new generation of 
personal computers in favor of the 
high-speed, feature-laden, bigger 
68000 chip. Among other advan- 
tages, this chip can manipulate 16 








pieces of information at a time. The 
6502 could only work with 8 pieces, 
By doubling the information size, 
the computer can do things far fast- 
er and can directly access far more 
RAM memory. So, in general, these 
new computers “think” faster and 
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“remember” better than their pre- 
decessors. And that means they can 
do everything better. 

Video, for example. Take a 
look at page 18. One of the impor- 
tant byproducts of more processor 
power is greater video resolution— 
more dots of visual information, 
more colors, more shades. The new 
computers offer relief from the rela- 
tively crude block-graphics and car- 
toons which have hitherto served 
as the visual element of personal 
computers. We can’t show you ani- 
mation in these pages, but that, too, 
is far superior. Things can now look 
round instead of ragged, shadows 
look like shadows instead of black 
blobs, and moving objects, instead 
of lurching, can now glide and 
revolve. 

Pages of print, too, are tight 
and stable on new, high-definition 
monitors. You can read these 
screens like a book. Related to this, 
Atari and other companies are cur- 
rently preparing to offer entire 
encyclopedia-sized databases on a 
single compact disc, This new pe- 
ripheral will plug into your com- 
puter like a disk drive and in 
seconds will locate any information 
you need, You can even ask it ques- 
tions which contain and and or rela- 
tionships: baseball and football in 
movies or books. You'll have a lot 
of knowledge only seconds away 
from your screen, The amount of 
information that can be packed 
onto a compact disc is staggering: 
550 megabytes. It’s the equivalent 
of nearly 3,400 Commodore floppy 
disks, 96 million words, 427,000 
typed pages, or nearly 2,000 ordi- 
nary books. 

As for software, the new power 
will expand the potential of every 
category, from word processing to 
games. You'll be able to compose 
large documents without linking 
files, check spelling quickly with a 
huge dictionary, see the text exactly 
as it will be printed, and maybe 





even access online grammar check- 
ing and thesauri, You'll have the 
power of the Macintosh graphics 
programs, but in color, It will be 
easy to draw titles, graphs, or visual 
aids and transfer them to other me- 
dia such as VCRs and slides. Com- 
plex music and voice synthesis and 
sampling will be available. 

The larger memories and faster 
speeds of these new computers will 
allow many more variables in 
games. Adventures will have more 
scenes, more intelligent input anal- 
ysis, more characters, and a more 
complex story line. Action games 
will look real (a videotape can run 
in the background of computer im- 
ages) and the sound effects will be 
astonishing. Games will be able to 
approach simulation-quality real- 
ism and be far richer and more so- 
phisticated than is currently 
possible. 

When you've seen what these 
new machines can do, you're likely 
to agree that pessimists reporting 
the demise of personal computing 
this past year have been seriously 
off the mark. No one can tell what 
the next ten years will bring, but if 
these computers are any indication, 
it will be a decade of marvels. Con- 
sumer computing is still an industry 
in its infancy, but no other technol- 
ogy is more likely to enrich our 
lives in so many unpredictable 
ways. 
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Editor In Chief 


Senior Editor 








THE BETTER LETTER BOX 


Introducing EasyPlex: The new, 
easy-to-use electronic mail system 
from CompuServe. 


Finally! Electronic Mail that’s so easy to 
use you can start composing and sending 
messages the first time you get online, 


Designed for various experience levels, 
EasyPlex has a menu mode with simple, 
easy-to-follow directions for beginners, 
and it lets experienced users save time by 
‘working in the prompt or command modes. 
With EasyPlex, you can compose, edit, send, 
file, and take advantage of sophisticated 


} 
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options previously available only with more 
expensive services, 

CompuServe'’s EasyPlex lets friends and 
relatives, associations and club members 
communicate any time of the day or night. 
And small business owners, real estate 
professionals, insurance agents, lawyers, 
writers, ete, can communicate quickly and 
simply—either interoffice or interstate. 

“It Easy” “Just Plex it!” 

Best of all, EasyPlex is available to all 
CompuServe subscribers. And, along with 
EasyPlex, you get hundreds of valuable and 
entertaining computing options. Plus the 
assurance of belonging to the largest, fastest 











growing computer information service in 
the world and the premier supplier of 
business information to FORTUNE 500 
companies. 

Startcommunicating! To buy a: 
CompuServe Subscription Kit, see your 
nearest computer dealer, To receive our 
informative brochure or to order direct, 
call or write: 


CompuServe’ 


Information Services, PO, Box 20212 
5000 Arlington Centre Bivd., Columbus, Ohio 43220 


800-848-8199 


In Ohio, call 614-457-0802 
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IT’S HERE! 


The long-awaited companion to Joo! Kit: BASIC has arrived. 


COMPUTE!’s VIC-20 and 


Commodore 64 Tool Kit: Kernal 
by Dan Heeb $16.95 

+ Explains the mysterious ROM routines in a clear, step-by- 
step fashion 

«Includes screen, serial, tape, and RS-232-C routines 


* Helps you understand each of the standard Kernal jump 
routines by describing them thoroughly and clearly, 


This book can help a beginner understand how the Kernal 
and the computer work. It can help an intermediate pro- 
grammer become an expert. And for experts, this is an 
essential reference. 


And new for the 


Commodore 64 and 128, 


COMPUTE!’s Commodore 64/128 
Collection  tdited, $12.95 


Now for the Commodore 64 and the Commodore 128, 
this collection brings together some of the best games, 
applications, and utilities from COMPUTE! Publications. 


* All programs run on the 64 and the 128 running in 64- mode. 
* Sections detail the advanced special features of the 
powerful, new 128 computer, 
+ A disk is available which includes programs in the book. 


This is the ideal book for beginning and intermediate users 
of the Commodore 64 and the new Commodore 128. 





Look for these and other best-selling titles from COMPUTE! Books at your local computer and book stores 
or order directly from COMPUTE! Publications. 


To order, call toll free 800-334-0868 or mail your payment (including $2.00 per book for shipping charges) 
to COMPUTE! Books, P.O. Box 5058, Greensboro, NC 27403. 


COMPUTE! Publications,Inc. 
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feecloackx 


Do you have a question or a problem? 
Have you discovered something that 
could help other Commodore users? 
Do you have a comment about some- 
thing you've read in COMPUTE’s GA- 
zeTTE? We want to hear from you. 
Write to Gazette Feedback, COMPUTE’s 
GAZETTE, P.O. Box 5406, Greensboro, 
NC 27403, We regret that due to the 
volume of mail received, we cannot 
respond individually to program- 
ming questions, 





Speaking The Same Language 
What's an ASCII code? And what's the 
ASCII code for the MPS-801 printer? I 
recently purchased a software package 
that needs to know a printer's code to 
work, 

K. Fuse 


ASCII is short for “American Standard 
Code for Information Interchange,” a kind 
of common language used to send infor- 
mation from a computer to printers, disk 
drives, or other computers. 

It's like Morse code for computers. 
Each character is assigned a unique series 
of on and off bits—ones and zeros—so 
data can be traded back and forth. The 
ones and zeros are commonly expressed as 
their decimal equivalents (for example, 
01000001 is ASCII 65, which is the letter 
A). 3 

The BASIC functions ASC and CHR$ 
allow you to find out which characters are 
assigned to which ASCII numbers. Try 
typing PRINT ASC(”A”) or PRINT 
CHR§(65). 

Commodore owners need to know 
about two different types of ASCII codes, 
Standard or “true ASCII uses seven bits 
to create 128 numbers: 96 printable 
characters and 32 control codes. An eighth 
bit is sometimes used as a parity bit, a 
checksum. Commodore ASCII is not the 
same as true ASCII, and has 256 numbers 
(eight bits), some of which are unused or 
duplicated, 

If you send Commodore ASCII codes 
to a non-Commodore printer that expects 
standard ASCII, the upper and lowercase 
letters will be switched (IIKE tHIS, fOR 
eXAMPLE). You can fix this through soft- 
ware or hardware. The software solution 
is to have the program make the conver- 
sion to standard ASCII before sending the 
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characters to the printer or other periph- 
eral. The hardware solution is an interface 
that intercepts the Commodore characters 
and changes them to standard ASCII 
before they reach their destination. 

The program you're using apparently 
gives you the option of sending either kind 
of ASCII (Commodore ASCII or a software 
translation to true ASCII, if you need it). 
The MPS-801 you own is a Commodore 
printer and uses Commodore ASCII. So, 
when your program asks what type of 
ASCII, you should answer Commodore 
ASCII rather than standard ASCII. 





Commodore 128 Compatibility 
lam considering upgrading from my 64 
to a 128 and I have a few questions 
about compatibility. Is the 128 compat- 
ible with the 1541 disk drive? Is it 
compatible with the 1650 Automodem? 
What about the Connection interface 
and a BMC printer? Is it compatible 
with GAZETTE programs? Will popular 
commercial software work on the 128? 
Kerry Konecny 


I've read about new 128 software that 
would not fit on a 64 due to its smaller 
memory, If you buy a 64K expander for 
the 64, would the 128 programs work? 

Scott Colston 


The answers to the first five questions are 
yes, yes, we don’t know (but probably yes), 
yes, and yes. There are three distinct 
computers inside the 128: a Commodore 
64 (40 columns), a 128 (40 or 80 columns), 
and a CP/M 3.0 computer (80 columns 
only). 

The 1541 works with both 64 or 128 
mode, but you'll need the newer disk drive 
to run CP/M programs. A television or 
composite monitor will work in 40 col- 
umuns for either 64 mode or 128 mode. But 
128 mode (80 columns) and CP/M both 
require an RGB monitor, We've tested the 
1650 Automodem with Vidtex software in 
64 mode and it seems to work fine (as of 
this writing, there is no telecommu- 
nications software for 128 mode), 

In 64 mode, the computer runs all 64 
software we've tried. In other words, it’s 
not just 64-compatible, it is a 64. 

So if you already own a 64 and have 
invested in software and hardware for it, 
you can buy a 128 and continue to use 
your peripherals and programs, ~ 

The answer to the final question— 








Editors and Readers 


adding 64K to a 64 to make a 128—is no. A 
128 in 128 mode is more than a Com- 
modore 64 with extra memory. There are 
many new keys, including ESC, ALT, 
HELP, 40/80 (columns), and a numeric 
keypad, And there's an improved BASIC. 

A128 in 64 mode is a 64, but it would 
be difficult if not impossible to upgrade a 
64 to act like a 128 in 128 mode. 


Learning BASIC 

The manual that came with my com- 
puter has a list of BASIC words in the 
appendix, but it doesn’t go through 
them one by one and explain how to 
use them. The definitions are very short 
and don’t include useful examples, For 
example, the DATA statement “..is fol- 
lowed by a list of items to be used by 
READ statements.” 

My grandmother has a Texas In- 
struments computer and the manual for 
it explains every little detail of every 
word needed to program in TI BASIC. 
Where do I find a book like that for 
Commodore computers? 

Bo Michelli 


There are many books that explain BASIC 
in simple terms, with a lot of examples. 
The ones written for children can be help- 
ful even if you're an adult (for example, 
COMPUTE!'s Kids and the Commo- 
dore 64), 

But reading about programming is 
not enough. You should practice and 
experiment; remember that you can't 
harm the computer by making mistakes. 
Many readers have commented that typ- 
ing in programs from the GAZETTE has 
helped them learn more about 
programming. 

Start by learning the most common 
commands like PRINT, INPUT, FOR- 
NEXT, IF-THEN, READ-DATA, GOTO, 
and GOSUB. (You could even learn how 
they work by reading your grandmother's 
book about TI BASIC; these commands 
work much the same in different versions 
of BASIC.) You don't have to learn all of 
the commands at once, some of them you 
may never need in the programs you 
write, 

It also helps to be able to ask ques- 
tions about problems you encounter. If 
you can't find a friend or neighbor who 
knows how to program, contact a local 
users group; many offer classes for 











SUMMER GAMES Il. 


EIGHT NEW WAYSTO GO FOR THE GOLD. 


jummer Games was great, but 
op there? Let Summer Games II take 
rther with eight new events 
ing, triple 


nall be ee by 
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beginners. Or call local schools and ask if 
they have night or weekend classes in 
programming. 





Putting Information Into Lists 

I've had my computer for two years and 

can write programs for it, but I just can’t 

seem to understand the DIM statement. 
Chris Davis 


DIM is short for DIMension, and it sets up 
@ list of variables called an array. Let's say 
you're a teacher meeting new students for 
the first time, You know ahead of time that 
there will be 15 students, so you write the 
numbers 1-15 on separate lines down the 
lefthand side of a sheet of paper. As each 
student comes into the room, you ask for 
his or her name and write it on one of the 
numbered lines. Numbering the list before 
putting anything into it is the equivalent 
of the DIM statement—you're preparing a 
list that will be a certain size. 

You can do the same thing (create a 
numbered list of names) on a computer 
with a string array: 


10 DIM N§(15) 
20 FOR J=1 TO 15; PRINT “STUDENT”; 


J 
30 INPUT NS$(J): NEXT 
40 PRINT “STUDENT FIVE IS”; N$(5) 


The DIM statement in line 10 tells 
the computer to set aside some memory for 
a list of strings (for a list of numbers, you 
would leave off the dollar sign). It's like 
writing numbers down the side of a piece 
of paper, except that the computer starts 
counting at zero, so the list actually has 
room for 16 names rather than 15, Lines 
20-30 ask for 15 names, ignoring name 
number zero, F 

The example above is a one- 
dimensional array, meaning there’s only 
one number (dimension) in parentheses. 
You can create complex multidimensional 
arrays by using more numbers separated 
by commas, For example, DIM B$(15,3) 
would create a 64-element two- 
dimensional array 16 strings wide (0-15) 
by 4 strings deep (numbered 0-3). This ar- 
ray could keep track of 16 students, with 
separate variables for first, middle, and 
last name (plus one more entry like favor- 
ite food or shoe size). Three, four, five, or 
more dimensions are also possible, al- 
though you don't see them used very 
often. 

Once an array is dimensioned, it can- 
not be redimensioned—you'll get a 
REDIM’D ARRAY error. You have to stick 
with the dimensions you assign at the 
beginning of the program. 

Arrays are useful because, for one 
thing, they allow you to alphabetize and 
sort lists of words and numbers, They're 
also quite common in database and 
spreadsheet applications. 





The Koala Pad 
As an owner of the KoalaPad, I would 
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like to be able to use it for other things, 
such as menu selection and game de- 
sign. I've tried PEEKing to no avail. 
Any information you could give me 
would be helpful. 

David Bradley 


The KoalaPad is read like paddles, Each 
paddle can have a value from 0 to 255, 
depending on which direction it is turned, 
The KoalaPad gives back two numbers in 
the range 0-255, corresponding to the 
pen’s horizontal and vertical position. On 
the 64, peeking location 54297 gives the 
horizontal coordinate, and 54298 gives 
the vertical position. Reading the 
KoalaPad is more accurate in machine 
language, because these two locations are 
also used by the keyboard scan routine. 

Use these statements in your pro- 
gram to determine which button is 
pressed: 


IF (PEEK(56321)AND8)=0 THEN the 
right button is pressed 

IF (PEEK(56321)AND4)=0 THEN the left 
button is pressed 


The following BASIC program uses 
the KoalaPad to move a sprite around the 
screen, Pressing the right button will 
change the color of the sprite, while press- 
ing the left will toggle the sprite’s size. 


10 PRINT" ({CLR)":FORA=832T0896 : 
POKEA, 255 : NEXT: POKE2046, 13: 
POKE53269,1 

26 POKE53248,PEEK( 54297) :POKES 
3249, PEEK(54298) 

30 IF(PEEK(56321)AND8)=OTHENPO 
KE53287, ( PEEK( 53287) +1)*-(P 
EEK(53287)<255) 

40 IF ( PEEK( 56321) AND4)=0THENPO 
KE53277, -(PEEK(53277)=0) 

56 GOTO 20 





The 64 Lockup Bug 
I have encountered an extremely 
annoying and aggravating problem 
with my 64, When I’m typing a line at 
the bottom of the screen and go over 
the 80-character limit (two screen 
lines), I start to delete the excess charac- 
ters. As the cursor hits the 40th column. 
on the previous line, the words LOAD 
and READY appear. And BASIC 
crashes. | have to turn the computer off, 
losing the program in memory. Is there 
any solution? 

David Schuster 


Nearly all 64s suffer from this bug. Read- 
ers who haven't seen it before can make it 
happen quite easily. Turn on your 64, 
move the cursor down to the last line, and 
hold down the space bar until the cursor 
passes the right edge of the screen twice. 
Hold down the DELete key until the 
cursor goes back to the far right column. 
You'll see the word LOAD, and if there's a 
program in memory, it will run. But when 
the program ends, your computer will lock 
up. 


The bug does not affect the portable 





64 (SX-64), and newer models of the 64 
have been revised to eliminate the 
problem. 

The lockup will occur only when the 
cursor color is red, cyan, blue, yellow, 
light red, dark gray, light blue, or light 
gray. Safe colors are black, white, purple, 
green, orange, brown, medium gray, and 
light green. To avoid the problem al- 
together, change the cursor color to a safe 
color before you start programming. 

Also, you can defeat the lockup if you 
own a Datassette. After the computer 
freezes, simultaneously press the left 
SHIFT key and 3, or X and 5, or V and 7, 
and so on (every other key from left to 
right). The screen will display PRESS 
PLAY ON TAPE. Press PLAY on the 
Datassette and then RUN/STOP. Disk 
drive owners can totally avoid the bug if 
the first line in the program in memory is 
OPEN15,8,15: INPUT#15,A$. 


Disk Limits 
I am learning how to use relative files 
on the 64, I’ve read that more than one 
disk file can be open simultaneously, 
but whenever I try to open a second rel- 
ative file, I get an error 70, NO CHAN- 
NEL, I don’t understand where the 
error comes from, 

Don Arnett 


Relative files are fast and flexible, but you 
cannot have more than one open at any 
time, It’s possible to open a sequential file 
while a relative file is open, however, and 
you may be able to modify your program 
accordingly. For more about programming 
relative files, see ‘Relative Files: Speed 
and Economy" in the June 1985 GAZETTE. 





Don’t Jump Out Of Loops 

I've been programming the 64 for about 
nine months, and recently I got an OUT 
OF MEMORY error during a program. 
PRINT FRE(0) showed that there was 
plenty of memory left, 

I've read that this error can be 
caused by a full stack, which can come 
from jumping out of FOR-NEXT loops 
(which I did excessively), So I POKEd 
zeros into the stack area, but that didn’t 
work. How can I get my memory back? 

William J. Moses 


POKEing zeros to the stack doesn’t clear 
it, it just changes all the information on 
the (still) full stack to zeros. It's possible to 
write a machine language program that 
clears leftover FOR-NEXT information 
from the stack, but jumping out of FOR- 
NEXT loops is only asking for trouble. The 
best solution is to avoid doing so. 
BASIC programs put important 
information about subroutines and FOR- 
NEXT loops on the stack. Loops and sub- 
routines may contain one line ora 
thousand, so the program has to keep the 
information safe until it eventually 
reaches a NEXT or a RETURN. Jumping 








/// From one bestseller 


to another... 
Writer 64 l, 

Word Processing Software Z 
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You also get all of the other features you could 
hope for in serious word processing software like 
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out of a loop or subroutine leaves “gar- 
bage” on the stack, leading to the error 
you described. 

If the logic of your program requires 
jumping out of a loop, don't use FOR- 
NEXT. Instead of FOR M=1 TO 20, 
start the loop with M=1. Replace the 
NEXT with M=M+1: IF M<21 THEN 
GOTO XXX (XXX should be the line that 
follows M=1). The FOR-NEXT loop has 
been replaced by IF-GOTO, which will 
not fill up the stack or lead to an error. 





Triple-VIC/64 
Your April issue contained a machine 
language program that divides a 64 into 
three 12K areas. I have a VIC with 16K 
expansion and would like to know if it’s 
possible to write a version of Triple-64 
for the VIC. 

Neil J. Schneider 


Several VIC owners have requested a ver- 

sion of Triple-64. Reader Richard Good- 

man sent us a Triple-VIC program for a 

VIC with 32K expansion. We modified it 

somewhat to make it work on either the 64 

or a VIC with any memory expansion. 

Also, if you've moved the start or end of 

BASIC to protect a utility program like 

“MetaBASIC,” or to keep BASIC away 

from hi-res screens or custom characters, 

the protected area is still safe. 

Whatever memory is free is divided 
into three roughly equal sections of mem- 
ory. Section three may be slightly larger 
than one or two. To move back and forth, 
SYS679 and press 1, 2, or 3. 

1@ FORA=679T0733 :READB: POKEA, B 

:NEXT 
28 N=PEEK( 44) :M=INT( ( PEEK(56)- 

N)/3) 

30 PORA=@TO2:POKE741+A,N+A*M:P 
OKE738+A, N+tA*M: POKE743+A,N+ 
A*M:J=256* PEEK(741+A) 

48 FORK=6TO2 : POKEJ+K,@:NEXT:PO 
KE735+A, 3:NEXT: POKE2,1:POKE 
746, PEEK( 56) :NEW 

5@ DATA 166,2,165,45,157,222 

60 DATA 2,165,46,157,225,2 

78 DATA 32,228,255,41,15,248 

80 DATA 249,201,4,176,245,178 

96 DATA 134,2,189,222,2,133 

108 DATA 45,133,47,133,49,189 

110 DATA 225,2,133,46,133,48 

126 DATA 133,50,189,228,2,133 

138 DATA 44,189,231,2,133,56,9 

6 


Cassette Woes 
Town a 64 and a Datassette. Sometimes 
it does not record right, and the pro- 
gram doesn’t completely load, I believe 
I need to buy a new Datassette, but 
would like to read through the problem 
tape and find out what's going wrong. 
Any suggestions? 

Tom Appell 
You probably don't need to buy a new 
Datassette—you may be able to fix it 
yourself. Here are some suggestions for 
troubleshooting cassette problems: 
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1, Sometimes the problem is simple 
magnetic interference. Move your 
Datassette away from the television or 
monitor, And watch where you keep your 
cassettes; don’t store them next to the TV, 

2. If certain tapes are unloadable, try 
fast forwarding and then rewinding them 
once or twice, This removes slack from the 
tape, which can make it slip and slide 
when loading or saving. 

3. Use ferric oxide rather than the 
more expensive chromium tape. Ferric 
tape records programs better, 

4, The read/write head can become 
magnetized and/or dirty after heavy use. 
Demagnetizers, sometimes called ‘‘de- 
gaussers,”” and head cleaning kits are 
available at audio and electronics stores, 
and will solve this problem. 

5. Tape drives can become mis- 
aligned. If you're having trouble loading 
commercial tapes, try adjusting the screw 
next to the tape head. The newer 
Datassettes (the ones where RECORD is 
next to PLAY) have a small hole through 
which you can insert a screwdriver to 
align the head, 





Spaces Look Like Shifted Spaces 
Tam writing a graphics program for the 
64. I want to plot an initial block but 
nothing appears with this line: 380 
POKE 1064,96: POKE 55336,2. Chang- 
ing the background color doesn’t affect 
anything. I used character 96 because 
the User's Guide says it’s the reverse for 
character 32. Can you help? 

David Easterday 


When you POKE characters to the screen 
of a Commodore computer, you must use 
scréen codes, which are listed in an 
appendix in the User's Guide. They're not 
necessarily the same as ASCII codes. In 
addition, you have to POKE to color mem- 
ory, Each letter has a foreground color (the 
character you see) and a background color. 
The foreground is taken from color mem- 
ory, while the background is the same as 
the screen color, 

If you forget to POKE color memory, 
you may get a character that’s the same 
color as the screen, like writing with blue 
ink on blue paper, or white ink on white 
paper. 

You have the right idea—location 
1064 in screen memory matches up with 
55336 in color memory. But character 96 
is not the reverse of character 32. Charac- 
ter 32 is a space, Character 96 is a shifted 
space, which looks exactly like a regular 
space (no foreground, because it’s a space, 


and spaces are all background). At the end. 


of the screen code table is a note that says 
“Codes from 128 to 255 are reversed im- 
ages of codes 0-127," so to get a reversed 
space, POKE a 160 (space 32 + reverse 
128) to 1064, A 224 (SHIFT-space 96 + 
reverse 128) could also be used. 














Moving Across The Sprite Seam 
I’m not able to move two sprites, in tan- 
dem, through the 255 blockade. I 
would like them to enter the left side of 
the screen and exit to the right. 

Sid Seiferlein 


There are two memory locations that 
determine the X and Y position of each of 
the eight sprites: 


53248 Sprite _X-position 
53249 Sprite _Y-position 
53250 Sprite 1 X-position 
53251 Sprite 1 —_Y-position 
anid 60 Ott. 

53262 Sprite 7 X-position 
53263 Sprite 7 __Y-position 


But 16 registers, two for each sprite, 
are not enough to cover all positions on 
the screen. Each memory location can 
contain a number from 0 to 255. This is 
enough for the possible Y (vertical) po- 
sitions, but there are more than 256 X 
(horizontal) locations. One more register is 
needed, for the high bit of the X-position: 


Location 53264 (8 bits) 

oa ee 2 
Sprite /Bit # 7110) 20> Sadie amet) 70! 
Value 128 64 32 16 8 4 21 


To move sprites across to the right of 
the seam (where SP is the sprite number 
between zero and seven), POKE 53264, 
PEEK(53264) OR (2*SP). To go back to 
the left side, POKE 53264, PEEK(53264) 
AND (255—21SP). 

At the same time that you set the bit 
in 53264, you'll have to lower the number 
in the X-position. For sprite zero, for ex- 
ample, here are the POKEs: 





X-position — POKEs 

253 POKES3248,253 

254 POKES3248,254 

255 POKES3248,255 

256 POKES3248,0:POKE53264, 
PEEK(53264)OR1 

257 POKE53248,1 

258 POKE53248,2 


The POKE to 53264 is necessary only 
when you cross the sprite seam. It's best to 
use OR to turn bits on, and AND to turn 
them off, so you don’t disturb the positions 
of the other sprites, 

To move two or more sprites across 
the seam, OR or AND with the appro- 
priate number, If they're sprites zero and 
one, POKE 53264, PEEK(53624) OR 3 to 
move right, POKE 53264, PEEK(53264) 
AND (255-3) to move left. You'll have 
to POKE the registers for the X-position as 
well. @ 





To receive additional 
information from advertisers 
in this issue, use the 
handy reader service cards 
in the back of the 
magazine. 
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PutYourselfin the pilot's seat of a Piper 181 Cherokee Archer for an awe-inspiring flight over realistic scene! 















Timesaving 


Using COMPUTEI’s Gazette Disk saves 
you time. Instead of spending hours 
typing in each program from COM- 
PUTEI’s Gazette, you can load all the 
fun and fascinating programs in just 
a few minutes with the Disk, You 
have more time to enjoy Budgeteer, 
Mystery at Marple Manor, Vocab 
Builder, and many other exciting 
games and applications, 





Inexpensive 


And COMPUTEI’s Gazette Disk is in- 
expensive, only $69.95 for a one-year 
subscription, That means the Disk 
costs you $5.83 a month, a savings of 
55 percent off the single disk price of 
$12.95. And what price can you put 
on the hours of typing time you 
save? 


ROUND 
KEITH 
TURN. 


COMPUTE!s 
GAZELLE DISK 


















Convenient 


COMPUTEI’s Gazette Disk gives you 
access, As soon as you read about a 
new and challenging program in 
COMPUTE!’s Gazette, you can load 
the Disk and begin using it immedi- 
ately—the Disk is ready when you 
are. 


gt score 


tye 





Riskeri68) 

All Disks are fully tested before. 
they're shipped to you, And full 
documentation for all programs is in 
the corresponding issue of COM- 
PUTEI’s Gazette, But if you should 
have a problem with a disk, just call 
toll free 800-334-0868 and a member 
of our Customer Service Staff will 
assist you, 


Enjoy the quality programs from COMPUTEI's Gazette on the 
convenient, ready-to-use COMPUTEI's Gazette Disk. 


To order COMPUTE!'s Gazette Disk 

Call toll free 800-334-0868 (in NC call 919-275-9809) or mail yout 
prepaid coupon to COMPUTEI’s Gazette Disk, P.O. Box 901, 
Farmingdale, NY 11737 


Individual issues of the Disk are available for $12.95 (plus $1.00 
shipping and handling.) Call 800-334-0868 to order. 


|e aa ye me Th a I RT TR a oR TA | 




















{| YES! 1 want to save time and money, Please enter my | 

I subscription to COMPUTEI’s Gazette Disk. I 

J GSave 55% off the single Save even more! 2 year | 

issue price. 1 year subscrip- subscription, $129.95 
I tion, $69.95 I 
All Disk orders must be prepaid. 

1 Payment enclosed (check or money order) I 

1 OCharge OMasterCard O Visa O American Express | 
Acct, No. Exp, Date 

I signature I 

| Name I 
Address 

I civ I 
State Zip 

| ‘(Outside US, and Canada, add $36.00 per year for shipping and handling.) | 
Please allow 4-6 weeks for delivery. 359002 
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A stunning example of high-resolution graphics on the Amiga. The 
image of this mandrill was digitized and displayed on the computer's 
640X400 graphics screen. With 4096 shades of color available, the 
Amiga can accurately reproduce almost any image. 
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The long wait i 
Commodore ha: 
tasking power 
graphics of a co 
sound of a sop 
more. Here’s a: 


personal compiifer. 


he VIC and 64 both repre- 

sent considerable comput- 

ing power, bringing the true 

power of a computer within 
almost any consumer's reach. 
These computers, now referred to 
as low-end machines, had their ori- 
gin in the first affordable $1000 
computers: the venerable PET, the 
Apple, and the Atari 400/800, The 
64 was instrumental in bringing the 
price of all computers down, while 
giving us the graphics formerly 
possible only on large-scale arcade 
machines, We're still seeing the 
evolution of the low-end home 
computer with the Plus/4, the 128, 
the Atari 130XE, and even the Japa- 
nese MSX computers. In the mean- 
time, there’s a segregated market of 
IBM and IBM compatibles—high- 
end machines which carry high- 
end price tags. 

We're now seeing the cycle re- 
peat itself: new, powerful comput- 
ers bringing Promethean 
computing power from the world of 
minicomputers and mainframes. 
These truly unique machines, the 





Commodore’s New 


a minicomputer, the color 
puter design station, the stereo 
ticated synthesizer, and much 
verview of this astounding new 


Apple Macintosh, the Atari ST, and 
the Amiga, can finally satisfy the 
needs of a broad range of users, 
from home, educational, and recre- 
ational computing to small business 
and corporate data processing. The 
price of these machines is some- 
what more than many people are 
used to paying for a home com- 
puter, but these are complete ma- 
chines. You don’t need to add 
memory or disk drives—they’re 
built in. 

How can the Amiga possibly 
fulfill these broad expectations? 
Picture your ideal computer. Tak- 
ing the 64 as the base, it would be 
nice to extend the memory, ideally 
without limit. The 64 graphics are 
great, but wouldn’t 80 columns, 
more résolution, and much more 
variety of color be even better? The 
ideal computer should be able to 
display near-photographic quality 
pictures, 

The 64’s SID chip was the first 
sound device to rise above mere 
bleeps and tones, but our ideal 
computer should have the quality 








nds-On Report 


Charles Brannon, Program Editor 


of a musician’s stand-alone 
synthesizer. 

Although much of today’s soft- 
ware is useful and friendly, the ide- 
al computer would truly fulfill the 
promise of user-friendliness. You 
should be able to learn and use soft- 
ware without thick manuals or ex- 
tended training sessions. You 
should have the convenience and 
features of professional software 
while retaining straightforward 
ease of use, 

Given a library of powerful 
software, wouldn't it be even better 
if all your software could work to- 
gether, or—outrageous as it 
sounds—for many programs to run 
simultaneously? Indeed, our ideal 
computer should be more than a 
personal microcomputer. It should 
offer to a single user the flavor and 
features of a personal mainframe. 

The computer we've described 
is the Amiga. The smallest Amiga 
comes complete with 256K (four 
times the memory of the 64) and 
built-in 3.5 inch microfloppy that 
stores 880K (about five Commo- 
dore 1541 disks) for $1100-$1500. 
The $2000 (approximately) Amiga 
offers 512K and includes a super- 
high-resolution monitor. If 512K of 
memory isn’t enough, the Amiga 
can be expanded up to 8 megabytes 
(that’s 8 million bytes) of RAM. In- 
deed, you can already buy a two- 
megabyte memory expansion 
board that includes a battery- 
powered clock/calendar and an ad- 
ditional communications port. You 
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The Amiga computer from Commodore, with built-in 3%-inch disk drive, detached 
keyboard, two-button mouse, and optional RGB monitor, and external drive. 


can attach up to four external 880K 
disk drives, or a 20-megabyte hard 
disk drive. (The 2M RAM board 
and 20M hard drive are available 
from Tecmar, not Amiga.) 


T= Amiga’s graphics are simply 
outstanding, far surpassing the 
graphics available on any computer 
sold for less than $10,000. While 
the 64 has a 160 x 200 multicolor 
mode, the Amiga can display 320 
dots across and 200 down, and can 
display one of 32 colors in any dot 
position. You can fill these 32 color 
registers with any of 4096 colors: 16 
luminance levels each of red, green, 
and blue, combined as you wish, as 
if you were an artist mixing paints 
on a palette, This many colors per- 
mit incredibly subtle shading and 
color selection, Almost any color 
you can think of can be displayed 
realistically, The pictures (actual 
screen photos) accompanying this 
article show only some of the 
graphics capabilities. 

The Amiga can also display a 
640 x 200 display, but only 16 col- 
ors can be displayed simultaneous- 
ly. Each of these 16 colors can still 
be picked from a total of 4096 color 
combinations. There’s a 320 x 400 
mode (twice the vertical resolution) 
and a 640 x 400 mode. These 
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modes are fully supported by the 
operating system. To comprehend 
this figure, remember that the 64’s 
screen would fit in one quadrant of 
the 640 x 400 mode, and this 
Amiga mode also has 16 times the 
color resolution of the 64. The 
640 x 400 mode has pixels so fine 
that they are not easily seen, no 
matter how close you get to the 
screen. Pictures drawn in this mode 
are hard to distinguish from actual 
paintings, cartoons, or even 
photographs. 

These are impressive graphics, 
buta still image is lifeless compared 
to one filled with ricocheting ob- 
jects, growing forms, flashing col- 
ors, and all manner of motion. The 
Amiga hardware includes special 
microprocessors that run simulta- 
neously with the main 68000 CPU 
(the 68000 has been referred to as a 
“minicomputer on a chip”). One 
chip called the copper (for coproces- 
sor) runs in tandem with the video 
beam, tracking and capable of 
changing graphics on the fly, The 
more powerful blitter chip can draw 
lines on its own, fill areas, and 
move large sections of the screen 
around. It can move blocks of mem- 
ory of any size and shape to any 
other place in memory. It does all 
these things without significantly 
slowing the 68000. The blitter is re- 








sponsible for much of the Amiga’s 
speed. Along with the copper, it 
takes care of graphics (including 
animation), freeing the 68000 to 
run asa pure turbocharged comput- 
ing engine. 

The blitter can simulate sprites 
with all the speed and capability of 
64 sprites, including collision and 
proximity (nearness) detection and 
multiple display priority—all 
this—with 32 colors. The icing on 
the cake is the hardware sprite sys- 
tem which can be used in addition 
to blitter objects. The Amiga sup- 
ports eight primary sprites. Each 
sprite is 16 dots wide (compared to 
the 64’s 12-pixel multicolor sprites) 
and up to the full screen's height. 
Each sprite can display four of the 
4096 colors simultaneously, and 
can be quickly and easily moved 
anywhere on the screen, Sprites can 
be attached (overlayed) to allow 16 
color combinations. The sprites can 
be reused automatically in different 
areas of the screen permitting many 
more than eight simultaneous ob- 
jects. And the Amiga operating sys- 
tem will even substitute blitter 
objects when it runs out of sprites. 
Sprites can be made to move 
automatically. 

There’s more. Any screen can 
be finely scrolled both horizontally 
and vertically. A special mode per- 
mits you to create two separate 
screens, as if each screen was in a 
dimension of its own. The screens 
are overlayed, and can include 
transparent portions so that you 
can view through one screen to see 
another. It’s as if you had one huge 
sprite to display on top of the pri- 
mary screen. You do lose some 
color capabilities with dual screens, 
But if it’s color you want, a hold and 
modify mode permits you to display 
any of the 4096 colors in every pixel 
position in the 320 x 200 mode, 

An optional video board 
(about $200) allows video mixing 
and frame grabbing. Video can be 
mixed from any video source, such 
as a color video camera, laser disc, 
or a VCR. The Amiga’s text and 
graphics can be superimposed on 
the external video, then re-record- 
ed. The frame grabber freezes and 
digitizes the video image in color, 
permitting you to convert real- 
world video into computer graphics 
that you can edit with a drawing 
program, 


THE #1 BACKUP COPY SYSTEM 
IS NOW BETTER THAN EVER! 






Version 3.3 





with 


Matenkey 
PEAT AGRE. 








Even low-resolution graphics on the 
Amiga are impressive. Island Graphics 
of Sausalito, California, which is design- 
ing graphics software for the Amiga, 
copied this ballerina from a famous 
painting by Edgar Degas. This graphics 
mode offers the same resolution as a 
Commodore 64—320 X 200 pixels—but 
the wider variety of colors lets the 
Amiga more closely duplicate the feel of 
the original. 


alice Amiga doesn’t shortchange 
the audiophile. Its sound system 
rivals the quality of commercial 
music synthesizers. The 64’s SID 
chip has been called a synthesizer, 
but few would mistake its sound for 
the real thing. The Amiga does 
sound like actual instruments. 
We've heard the Amiga simulate a 
piano, a flute, a pipe organ, an elec- 
tric guitar, snare drums, cymbals, 
tom-toms, and more, Instead of pi- 
ano-like tones or white-noise 
drums, what you hear sounds much 
like a recording of the real thing. In 
fact, the Amiga sound system is ca- 
pable of playing back digitized 
sound with uncanny accuracy, ap- 
proaching the sound quality of the 
new compact disc audio 
technology. 

The sound system has four 
voices—two of which are sent to 
each sound channel, permitting 
stereo depth as well as stereo imag- 
ing. Each voice plays a digital 
waveform in memory that is de- 
fined either by your program or by 
a previously recorded actual sound. 
Almost any sound can be approxi- 
mated closely, In fact, each voice 
can play chords of multiple instru- 
ment waveforms, permitting more 
than four levels of sound layering. 
The volume level can be controlled 
automatically, permitting realistic 
high-resolution sound envelopes, 
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similar to the 64’s attack/sustain/ 
decay/release cycle. The sound 
system has direct access to system 
memory, requiring very little pro- 
cessor time to keep the sound going 
or to change notes or instruments, 
again freeing the 68000 for pure 
computing tasks, 

The Amiga comes with a built- 
in voice synthesizer capable of sim- 
ulating male or female voices. The 
voice is somewhat metallic and 
seems to talk with a strange accent, 
but is still quite understandable, 

Most importantly, because the 
voice synthesis is built in, software 
developers are sure to exploit it, 
The educational value of speech is 
undeniable. You may or may not 
prefer your computer to talk to you 
while you're word processing, but it 
could be an option, Voice synthesis 





of data from the disk. Even the disk 
drive can operate simultaneously 
with direct access to memory, while 
the 68000 is busy with something 
else. The core operating system, the 
equivalent of the 64’s Kernal, is 
more than a bag of tricks. It pro- 
vides a firm foundation for the 
higher level operating system, 

The next level up in complexity 
is AmigaDOS. It is comparable in 
features to IBM’s DOS, but is closer 
to Unix in design, AmigaDOS not 
only provides for the command line 
interpreter where you can execute 
commands to rename, delete, list, 
and create files, but provides these 
functions to other applications and 
operating system routines. Amiga- 
DOS also includes a powerful batch 
language which lets you create your 
own custom disk routines. 





This space scene is another example of what can be done with the Amiga and Pro- 
Paint. Island Graphics also has prepared a slightly less powerful version of the pro- 
gram called GraphiCraft, 


is most useful when text on the 
screen may be overlooked. This 
should open up completely new 
concepts for software developers. 


he operating system supports ex- 

tremely sophisticated program- 
ming. You need never resort to 
PEEKs and POKEs, not even from 
machine language. There’s a routine 
to access every feature of the hard- 
ware, from automatic line drawing, 
routines to pulling in huge amounts 





Unlike most DOSs for other 
computers (except Concurrent 
CP/M), AmigaDOS permits its 
own commands to run simulta- 
neously. You can list a directory in 
one window while sorting a file in 
another. Programs can be run un- 
der AmigaDOS in the background. 
Each program has its own “‘virtual’’ 
access to all machine features, but 
does not interfere with any other 
programs running simultaneously. 
(No single computer can actually 
do more than one thing at once, but 
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telecomputing on your Commodore 


COMMODORE o 


Many home computer analysts 
64 belleve that telecomputing will soon 

be the most popular use for home 
computers, COMPUTEI's Telecomputing 
on the Commodore 64 Introduces 
readers to telecommunications, with 
sections on buying and using modems, 
accessing Information services and 
bulletin boards, and uploading and 
NS Sas ahaa downloading files. Best of all, there are 
sieeomputg on or el pace terminal programs which allow you to 

ferninal vottware, communicate with the Information 

services and bulletin boards, 
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For your convenience, there's also a disk available which includes all the 
programs In the book, This 5%-inch floppy disk saves you hours of typing 
and prevents many typing errors. It's fast, Inexpensive, and ready to load 
on your Commodore 64, You can order the Disk directly from COMPUTE! 
Books for only $12.95. 


To order COMPUTE!'s Telecomputing on the Commodore 64 or the Disk, mail the order 
form with your payment to COMPUTE! Books, P.O, Box 5058, Greensboro, NC 27403, 
For fastest service, call toll free 800-334-0868 (In NC 919-275-9809.) 
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YES! 1 WANT TO LEARN TO TELECOMPUTE WITH MY COMMODORE 64, 
Please send me: 
—— COMPUTE!'s Telecomputing on the Commodore 64, (009-2) $12.95 ea, dt 
(Add $2.00 per book U.S, and surface mall, $6.00 alrmall, for shipping charges.) 




















—— COMPUTEI's Telecomputing on the Commodore 64 Disk, $12.95 each —— 
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Total pald — | 
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A picture within a picture. This image 
and all of the graphics screens accompa- 
nying this article except the mandrill 
were created in the low-resolution mode 
by Island Graphics. The pictures were 
drawn with a mouse controller and 
Island Graphics’ ProPaint software, 
which will be marketed under the 
Amiga brand name. 





This screen shows some of the educa- 
tional possibilities of the Amiga. These 
microbes are reproduced nearly as accu- 
rately as a textbook illustration. 





A help screen from TextCraft, an icon- 
based word processor developed by Ark- 
tronics, This screen shows a keyboard 
map; other screens provide animated tu- 
torials on everything from creating a file 
to printing out a finished document. 


can seem to, by quickly switching 
between tasks, giving each program 
a small slice of processor time. 
Hence, too many concurrent pro- 
grams can slow things down.) 
Programs can also be set up to 
reside concurrently without execut- 
ing. You can even run AmigaDOS 
simultaneously with itself, permit- 


24 COMPUTE!'s Gazette September 1985 





ting many DOS windows and DOS 
programs to be running at once. 
This realizes the true power of 
minicomputers and mainframes. 
With terminals and the proper soft- 
ware, you can even attach multiple 
users to the same machine, a capa- 
bility formerly available only on the 
most expensive microcomputers. 


Vo don’t have to be a keyboard 
wizard to use the Amiga. Ami- 
gaDOS will probably be the pre- 
ferred environment for many 
programmers and expert users, but 
most beginners and occasional us- 
ers of the computer will want some 
buffering between them and the in- 
timidating power and sophistica- 
tion of this DOS. 

Amiga’s “Intuition” operating 
system permits the use of Macin- 
tosh-like features such as multiple 
windows, pull-down menus, dialog 
boxes, and mouse control. (The 
mouse is a small box that relays di- 
rection and speed as you move it on 
a flat surface.) This user interface 
concept originated with Alan Kay 
and the Xerox Star. It relies exten- 
sively on the use of pictures (icons) 
to symbolically represent com- 
mands and files as objects. The 
work environment is represented 
by a graphic desktop, called the 
WorkBench. Computer operations 
mimic familiar real-world tasks, In- 
stead of typing OPEN 15,8,15, 
“S0:FILENAME”:CLOSE 15, you 
just point to the file with the mouse, 
hold down the mouse button, and 
drag the file into a picture of a 
trashcan. Drag a file into the win- 
dow of another disk, and you've 
copied it. Instead of trying to re- 
member the name of a command, 
just point to the top of the screen 
and then point the command you 
want from a list of commands (a 
menu) that magically drops down 
from the top. 

If you've ever used Commo- 
dore’s Magic Desk, you've seen an 
extremely simplified, but similar, 
concept. And if you've used a Mac- 
intosh, you'll find the same 
straightforward and intuitive style, 
but with true multitasking. Unlike 
the Macintosh, most programs fully 
support keyboard control. In fact, 
Amiga claims that you can unplug 
the mouse, pitch it across the room, 
and still take full advantage of the 
machine. The detached keyboard 





includes ten special function keys, a 
cursor pad, and a numeric keypad. 
The keyboard has a very light touch 
and good spacing, layout, and tac- 
tile feedback, with a nonglare tex- 
tured surface. You can slide the 
keyboard underneath the system 
unit when it’s not needed, freeing 
up desk space. 

Multitasking is easy with Intu- 
ition and Workbench, the “desk- 
top” that’s similar to the Macintosh 
finder. Each application you run 
can have its own window or an en- 
tire screen of its own, A window is 
like a miniature screen that can be 
moved about and resized on the 
désktop. A screen is a separate full- 
size window that, itself, can contain 
multiple windows. 

Concurrency is a powerful 
concept. You can start working 
with a spreadsheet, and while it’s 
recalculating a huge interconnected 
series of formulas, switch to a word 
processor to jot down a memo. 
While the word processor is print- 
ing your memo, you can switch toa 
telecommunications program and 
tell it to download stock quotes or 
research data, or send some files to 
the office computer. While the com- 
puter is juggling these three tasks, 
you can go to another word pro- 
cessing window to write some 
more, or access your database for a 
mailing label or bibliography, 
While writing you may need to 
switch to a drawing program to pre- 
pare a figure to insert in your text. 
You may need to refer to your out- 
line stored in the outline processor. 
It’s easy to copy data between these 
programs by using a common area 
of memory called the clipboard. As 
long as you've got the computer do- 
ing all your work for you, you 
might as well play an adventure 
game until it’s finished, 


rogrammers willlove the Amiga. 

The operating system supports 
so many routines that a program- 
mer needs only to concentrate on 
his or her algorithm, not on looking 
up which bit controls the priority of 
playfield versus sprites, Most of the 
operating system was written in C, 
a language unique in its high-speed 
performance, permitting system- 
level access to the machine while 
providing high-level language con- 
structs. C can be described as a sys- 
tems-level Pascal, but with so many 
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GET YOUR 
FEET WET... 


Now you and your whole family 
can experience the information 
age without getting in over your 
head. 

For just $29.95, the new Dow 
Jones News/Retrieval Membership 
Kit leads you step-by-step into 
entertaining and informative data 
bases. With five free hours to 
sample and explore, you can find 
a fact, shop at home, get the 





scores, plan a trip, review a 
movie, choose a stock, or check 
world and business news. There’s 
a lot more, too. All you need to 
get started is a computer and 
modem: 

‘The Membership Kit is a big 
value that entitles you to: 
© FREE password ($75 value) 
. Bee step by-step User's 


. TIVE FREE HOURS of usage 
to explore the magic of this 
comprehensive service 











“Toss away any preconception that 
nes News/Retrieval is a stuffy, one 
dimensional data base service designed 
only for an elite corps of stock crane 
and Wall Street wizards, Far from it— 
Dow Jones News/Retrieval also provides 
entertaining movie reviews, current 
weather and sports reports; convenient 
electronic shopping and inexpensive 
electronic mail. . .Dow Jones News/ 
Retrieval is informative, entertaining 
and well worth the money. 

-Brad Baldwin, InfoWorld Magazine 

















© FREE subscription to Dowline™, 
the magazine of Dow Jones 
Information Services 

A special introductory offer! 


Get your feet wet in the infor- 
mation age with the Dow Jones 
News/Retrieval Membership Kit. 
At $29.95, you'll enjoy the dip 
without getting soaked. Available 
at computer retailers and selected 
bookstores. For the location 
nearest you, call: 


1-800-257-5114 


In New Jersey, Canada, 
Hawaii and Alaska 
1-609-452-1511 


Five tine’ oer tnited to fve (5) hours per household 
Must be used within 30 days of receipt of jasaword 





nel Conga, In: 
A Rights Reserved. Dow Jones New/Retrieval® 
iy a mgstened trademark of Dow Jones and 
Company, Ine 
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{ 
It’s ; Absolutely 
Shocking!!! | 


After all these years, CMS Software Systems is still the only 
company providing professional quality accounting software for the 
complete line of Commodore business computers, 


NS 


Whether you own an 8082, 8096, SuperPET, B-128, C-64, or the new 
C-128, we have a professionally written, fully integrated Accounting System 
folc¥olelarcle Mcy-j elclelt-Vi\ValcelanZelen 

Introduced in 1979, the CMS Accounting System was the first 
Accounting System available for Commodore computers. Not satisfied with 
just being first, we have continued to update, expand, and improve until 


today, the cms Accounting System is widely recognized as one of the 
finest Accounting Systems available for any computer. 


Now Available for the Commodore C-128 


« General Ledger 

« Accounts Receivable 
« Billing 

« Accounts Payable Y 
« Job Costing 


e Payroll 


$179.95 


Complete Price 

For more information see your 
Commodore dealer or call 
Cathy York at214/289-0677. 





CMS Software Systems, Inc. «2204 Camp David e Mesquite, TX 75149 


Se 











graphic design work stations. 

Island Graphics will initially 
have several packages for the 
Amiga, with more to follow. The 
first two, both of which will carry 
the Amiga brand name, are Graphi- 
Craft, a graphics creation program 
for the home market, and ProPaint, 
an advanced graphics program for 
the professional artist. An ad- 
vanced business graphics package 
will also be among the first releases 
for the Amiga from Island Graph- 
ics, Entitled BPGS (Business Presen- 
tation Graphics System), the 
package will reportedly surpass the 
combined capabilities of Microsoft 





continued from page 24 


functions available in its standard 
function package and in the Amiga 
Operating system, it’s a uniquely 
powerful language. 

C is available as an alternate 
language for developers, but there 
are also two versions of BASIC. No 
BASIC is built into ROM (nor is one 
likely to be in the future), but a new 
version of Microsoft BASIC, report- 
edly more powerful than either the 
IBM or Macintosh versions, will be 
bundled with the machine, along 
with AmigaDOS and a self-paced 
tutorial program. Another BASIC 
called ABasiC is available as an op- 
tion. Both BASICs are extremely 
fast and support all Amiga func- 
tions. PEEK and POKE are func- 
tionally obsolete, but they're 
supported if you want them. Full 
access to all Amiga Kernal routines 
is also included. 

Other languages available are 
Logo, LISP, and a 68000 Macro As- 
sembler. Soon to come are Forth, 
Pascal, and possibly FORTRAN. A 
programmer will have an enor- 
mous range of options, including, 
advanced symbolic debuggers. Any 
program written properly will also 
be able to run concurrently, and 
will be compatible with future ver- 
sions of the Amiga. 

We've mentioned the capabili- 
ty to add the frame grabber, exter- 
nal disk drives, a hard disk drive, 
and a clock/calendar with 2 mega- 
bytes of RAM and RS-232 serial 
port. Add-on boards attach via the 
expansion port, which brings out 
every line of the system, and even 
supports additional coprocessing 
capabilities. Amiga engineers will 
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Chart and Apple’s MacPaint and 
MacDraw for the Macintosh. BPGS 
is an object-oriented system. Any 
part of the display can be moved 
and edited as if it were an indepen- 
dent shape. The program uses vec- 
tored text—characters and letters 
drawn with lines—so that the text 
can be finely scaled without blocki- 
ness. The created image can be cop- 
ied to various printers with no 
effective limit on resolution, The 
system is also ideal for use with the 
Polaroid Palette slide capture sys- 
tem, providing an entré to crack 
into the $11.8 billion per year busi- 
ness presentation slide market, 


not rule out the possibility of an 
MS-DOS IBM PC compatibility car- 
tridge. Other ports are a Centronics 
parallel printer port (which can be 
reprogrammed to act as a parallel 
input port); a high-speed RS-232 
serial port for 1200- or 2400-baud 
modems or serial printers; and two 
control ports that support the 
mouse, two joysticks, two analog 
joysticks, four paddle controllers, or 
a high-resolution light pen. A con- 
figuration program permits full use 
of the Amiga with most popular 
printers including letter-quality, 
dot-ma-trix, ink-jet, and laser print- 
ers. The Diablo color inkjet printer 
can copy the screen graphics and 
colors almost exactly, and there are 
rumors of a pending color laser 
printer. 

As you can see, the Amiga is 
the first truly general-purpose com- 
puter, capable of doing everything 
well. It can support the most de- 
manding business needs while of- 
fering staggering power to the 
home user. The astounding graph- 
ics are ideal for CAD/CAM, art 
production, cartoon design, presen- 
tation graphics, and the best games 
seen in or out of the video parlor. 
The sound rivals midrange com- 
mercial synthesizers. The operating 
system combines the best of MS- 
DOS, Unix, and the Macintosh op- 
erating system, and brings 
multitasking to the consumer. And 
the wide range of software, avail- 
able immediately (see ‘Amiga Soft- 
ware: Something for Everyone’) 
means that you can start using it the 
minute you plug it in. Welcome to a 
new generation. 





















CPU: Motorola 68000, a 16/32-bit 
microprocessor; three separate cus- 
tom integrated-circuit chips con- 
trolling animation, graphics, and 
sound. 

Operating System: Macintosh- 
style with pull-down menus, win- 
dows, multiple screens, and icons. 
Unix-like DOS. Capable of true 
multitasking (able to run several 
programs simultaneously). 
Memory: 256K RAM standard, 
512K optional. Expandable up to 8 
megabytes. 192K ROM. 

Disk Drive: Built-in 880K 34-inch 
microfloppy drive; can daisy-chain 
up to four external drives; third- 
party 20-megabyte hard disk 
available. 

Video: Outputs for composite color 
or monochrome monitors, analog 
RGB color monitor, and built-in RF 
modulator for ordinary TV; 80- 
column text standard, with option 
to use 40 or 60 columns with ordi- 
nary TV. 4,096 possible colors. 
Graphics: Four graphics modes: 
640 X 400-pixel maximum resolu- 
tion (up to 16 simultaneous colors); 
640 X 200 (up to 16 simultaneous 
colors); 320 X 200 (up to 32 simul- 
taneous colors); and 320 * 400 (up 
to 32 simultaneous colors). Custom. 
graphics chip controls background 
graphics, screen handling, and 
eight four-color sprites; custom ani- 
mation chip, 

Sound: Advanced four-voice sound 
chip with stereo output and option- 
al digital sound sampling; built-in 
speech synthesis. 

Interfaces: Centronics-standard 
parallel port, RS-232 serial port, 
three video outputs, two stereo 
sound outputs, two control ports 
for mouse or joysticks, keyboard 
jack, and expansion port with full 
system bus for unlimited expansion 
(such as add-on coprocessors). 
Printers: Supports letter-quality, 
dot-matrix, ink-jet, and laser print- 
ers—including color printers. 
(Drivers for most popular printers 
are standard.) 

Price: Between $1,100 and 
$1,500—256K entry-level unit. 
About $2,000—512K system with 
RGB color monitor. @ 
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You're in the cockpit of 
a bad dream for the poor 
waxing. You stick a silver bird up his e 





game in history. It has the most awesome, 
high-speed animation you've ever seen on your 
computer. It’s played to rave reviews in every magazine. 
as he blossoms into fire. And then you rain down like pes- And it's yours—at your retailer—or direct from EA at (800) 
tilence upon the grunts in the tanks. -6703 with a 14-day satisfac- 


Skyfox. It's the fastest-selling EA KYFOX tion or money-back guarantee. 


from ELECTRONIC ARTS™ 


a dream machine 
spwhose tail you're 
aust and wince 





s & 3 weapon systerns 












ORDERING INFORMATION 
To purchase by mai, send che 
verson desired. Allow 
form, send 50¢ and a sta 










5. C-64 available now at $34.95. For a copy of ou 
755 Campus Drive, San Mateo, CA 94403 











Lance Elko, Editor 


The personal computer 
section at this year’s 
Summer CES attracted 
less attention than in 
past years, but a 
closer look revealed 

a pleasant surprise. 
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The Summer Consumer Electronics Sh 7 


BEYOND 








s Mark Twain once said to 

the press, “The reports of 

my death are greatly exag- 

gerated.’’ In recent 
months, stories about the demise of 
the personal computer industry 
have, too, been gravely premature. 
The Summer Consumer Electronics 
Show (CES), held this past June in 
Chicago, provided strong evidence 
that there’s plenty of life in this in- 
fant industry. 








Both low-end computer manu- 
facturers, Commodore and Atari, as 
well as many established software 
publishers, had a healthy showing. 
Although the number of software 
publishers has declined, the stron- 
gest and most dedicated remain. 
The shakeout of the past year has 
victimized both computer manufac- 
turers and software companies— 
Coleco (Adam), IBM (PCjr), 
Futurehouse, and Microlab, to 
name a few, But the tone of the 
survivors is that of optimism sea- 
soned by experience. And the qual- 
ity of many of the newest products 
shows a mature, positive approach 
to the marketplace. 





Signs of renewed life for the in- 
dustry have appeared in a variety of 
places. A recent survey based on 
marketing research by CBS, Louis 
Harris, A. C. Nielsen, Dataquest, 
and others indicates that the per- 
sonal computer industry appears to 
have a healthier future than many 
have predicted. According to the 
study, 15 percent of U.S. house- 

_ holds currently have a personal 

“~computer. By year’s end, the report 
indicates -that this will climb to a 
hefty 21 percent, or 16 to 18 million 
machines in U.S. homes. 

What market share Com- 
modore will have remains to be 
seen, At this writing, it’s too early to 
tell how the public will respond to 
the Commodore 128 and Amiga, or 
the impact of the new Atari ST 


______computers, ___ 


At the Commodore CES press 
reception, Marshall Smith, presi- 
dent and chief executive officer, 
was openly ruffled by the pessimis- 
tic press reports of the past few 
months concerning the future of 
Commodore. Despite the slowing 
sales of Commodore 64s and the 
steady decline of Commodore stock 
in the past several quarters, Smith 
and other company executives 
stressed their optimism for the suc- 
cess of the 128 and promised con- 
tinued support for the 64. Thomas 
Rattigan, the new Commodore 
North America president, an- 
nounced that 100,000 advance or- 
ders for the 128 had been received 
by June 1. He also noted that Com- 
modore was expecting to sell the 
128 “to over 15 percent of the near- 
ly three million plus U.S. owners of 
Commodore 64s and to hundreds 
of thousands of first-time computer 
buyers.” 





nan effort to demonstrate that its 

market includes much more than 
the U.S., Commodore displayed its 
two IBM PC compatibles, the PC10 
and PC20, available in Europe and 
Canada, They will not appear in the 
U.S. Also on display was the Com- 
modore 900 Business Computer, a 
Unix-compatible machine designed 
for multitasking and networking. 
Commodore plans to market this 
machine in Europe this fall, and it 
could later appear in the U.S. 

While underscoring its po- 
sition as an international company, 
Commodore was touting its newest 
market entry, the 128, Unlike the 
ill-fated Plus/4 and 16 computers, 
the 128 seems to be getting stronger 
support from Commodore, 

New hardware for the 128 
from Commodore includes the 
1572 disk drive, the MPS 1000 
printer, and the 1670 mo- 
dem/1200. The 1572 is a dual drive 
version of the 1571 and offers up to 
820K of data storage. The price will 
be announced later. The MPS 1000, 
an Epson-like dot matrix printer, 
features three operating modes: 
high-speed draft (100 characters 
per second), near letter quality (16 
cps), and graphics mode with a 
print density of 50 to 240 dots per 
inch. The new printer also offers a 
choice of four character sizes: 80, 
96, 132, or 160 characters per line, 
Price is expected to be under $300, 
The 1670 Modem/1200, originally 
announced at the Winter CES, is 
now available. This 300/1200 baud 
unit uses “AT” Hayes command 
protocol and includes a built-in 
speaker for monitoring dialing 
(Touch Tone or rotary phones), 
auto answer, auto dial, auto baud, 
and auto mode selection. As with 
earlier Commodore modems, a user 
ID, password, and one-hour sub- 
scription to CompuServe are in- 
cluded with the purchase, Sug- 
gested retail price is approximately 





$200. Although the 1572 dual drive 
is designed for use with the 128, the 
MPS 1000 is compatible with the 
128 and 64, and the 1670 modem 
with the 128, 64, Plus/4, SX-64, 
and VIC-20. 

Also on display at the Com- 
modore booth was the previously 
announced Commodore mouse 
controller. It is now available at a 
suggested retail price of $49.95. 

Commodore is pledging full 
software support for the 128. 
According to Paul Goheen, director 
of software development, the 128 
will be supported both by Com- 
modore titles and by third-party 
developers. 

Available for the 128 this sum- 
mer from Commodore are Jane 2.0, 
the Perfect Series, and Micro II- 
Iustrator. Jane 2.0, an impressive 
icon-based three-disk package, 
developed for Commodore by 
Arktronics Corporation, was in- 
troduced at the Winter CES, but has 
since been revised, The package in- 
cludes three integrated programs: 
Janewrite, a word processor, 
Janecalc, a spreadsheet, and 
Janelist, a file manager. The en- 
hanced version includes some new 
features designed to appeal to both 
novice and seasoned users, It works 
with the mouse or a joystick. Sug- 
gested retail price is $49.95, A 32K 
ROM cartridge version for the 64 is 
expected to be available for 
approximately the same price. 

The Perfect Series—Perfect 
Writer, Perfect Calc, and Perfect 
Filer—also announced at the Win- 
ter CES, is now available. Each of 
these programs can be used sepa- 
rately or share files when used to- 
gether. The series, developed by 
Thorne/EMI, is designed to operate 
in the 128’s 80-column mode. Each 
program is expected to retail for 
$69.95. Micro Illustrator, a graphics 
program previously available for 
the 64, uses the 128K mode, allow- 
ing more features than the original 
version. Suggested retail price is 
$39.95. Other 128 titles planned for 
release are Typing Professor and A 
Comprehensive Course in BASIC, 


G2! major third-party soft- 
ware publishers have also com- 
mitted support for the 128. Batteries 
Included is offering versions of 
three popular 64 programs, Paper- 
Clip, HomePak, and The New 
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Consultant, The upgraded versions 
take advantage of the 128’s extra 


memory, processing speed, 80- | 


column display, and larger key- 
board. Suggested retail prices for 
these packages are $89.95 (Paper- 
Clip), $79.95 (The New Consultant), 
and $49.95 (HomePak). A 128 ver- 
sion of Pro-Line Software’s popular 
word processor has been intro- 
duced, WordPro 128, which also 
uses the new computer's memory, 
speed, and 80-column display. Sug- 
gested retail is $99.95, 

Timeworks announced Word 
Writer 128, Data Manager 128, and 
Swiftcalc 128, Word Writer includes 
an 85,000-word spelling checker 
and five-function calculator. Data 
Manager is a general information 
storage and retrieval system with 
report-writing and label-making 
capabilities, Swiftcalc, a spread- 
sheet, includes a special feature. 
Through a licensing agreement 
with Funk Software, Timeworks is 
including Sideways, a best-selling 
spreadsheet/printer utility pre- 
viously available for only the Apple 
and IBM PC. Sideways prints an en- 
tire spreadsheet report at one time 
on one page by rotating the spread- 
sheet 90 degrees as it prints out, 
thus eliminating the need for cut- 
ting and pasting several sections to- 
gether, It also offers a variety of 
type sizes and control over line 
spacing, left and top margins, and 
spacing between characters. De- 
signed to be used with any other 
Commodore-specific spreadsheet 
that can create ASCII files on disk, 
Sideways can be purchased sepa- 
rately for $29.95. A version for the 
64 is available also. Word Writer 
128, Data Manager 128, and 
Swiftcalc 128, each carry a sug- 
gested retail price of $69.95, 

More software for the 128 from 
Commodore and third-party 
publishers will be available later 
this year, noted Goheen. 


hile the 128 is off to a more 

auspicious start than the 
Plus/4 and 16, the venerable 64 is 
far from abandoned, Dozens of 
new hardware and software prod- 
ucts for the 64 (and the 64 mode of 
the 128) were introduced. 

An interesting product for 
those who wish to use their 64 as a 
home control unit is the X-10 
Powerhouse. This programmable 
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The 1670 modem from Commodore fea~ 
tures 300/1200 baud, built-in speaker, 
auto answer, autodial, auto baud, and 

auto mode selection, 





The X-10 Powerhouse, a programmable 
interface for the 64, allows control of 
household lights and appliances without 
tying up the computer. The accompany- 
ing icon-based software lets you simulate 
the layout of your home and program 
individual rooms or outside lights. 





hardware interface, with its own 
RAM, ROM, and realtime clock, 
connects to the 64’s user‘port and 


‘| can control various household 


appliances, such as TVs, stereos, 
lamps, thermostats, wall switches, 
electric hair curlers, and coffee pots. 
It runs on a standard 9-volt alkaline 
battery and controls lights and 
appliances using existing house 
wiring. After installing and 
programming the interface, it may 
be disconnected, thus freeing your 
64 while the X-10 runs the program 
you've entered. 


The accompanying software 
features icons you can arrange to 
simulate various rooms in your 
home. You can then graphically 
display up to nine rooms ona single 
screen and program any lights or 
appliances in each of them. The 
software also has on-screen instruc- 
tions. The X-10 Powerhouse can 
store up to 128 timed events and 
will control up to 95 screen icons 
inside or outside your home. A pro- 
grammer’s guide will be available 
for those wishing to write their own 
software. Price for the interface, 
software, and cable is $150. Sepa- 
rate lamp and appliance modules— 
which plug into outlets—are re- 
quired for use with the system, X- 
10 has these available for $8-$30 
each (or less if purchased in larger 
quantities). 

Cardco announced S‘More (Su- 
per Memory Optimized RAM/ 
ROM Expansion) BASIC, a cartridge 
utility for the 64 that provides over 
60K RAM for programming and 
adds 60 new commands, many of 
which eliminate the need for PEEKs 
and POKEs. With S’More BASIC, the 
function keys have specific assign- 
ments (f2 runs a program in memo- 
ry, {3 reads and displays the disk 
drive error channel, f5 lists a pro- 
gram in memory, f7 displays the 
disk directory, and so on), Suggest- 
ed retail price is $69.95. Cardco is 
also planning a fall release of the 
S'More BASIC Compiler. The price is 
$39.95. 

Abacus Software introduced 
Super C, a C compiler for the 64. It 
features a full-screen editor with 
horizontal and vertical scrolling. It 
allows source files up to 41K long, 
and is compatible with most other 
versions of C. Price is $79.95, Aba- 
cus was also showing its new Super 
Pascal System, which includes a 


Get more out of your Commodore with 


COMPUTE!s_ - 
GAZELLE 


FOR COMMODORE PERSONAL COMPUTER USERS 


Children will learn and 

develop new skills with States 
_ & Capitals Tutor, Wordmatch, 
~~ Munchmath, Wordspell, Con- 
4nect the Dots, Aardvark 
Attack, and Alfabug, Comput- 
ing for Kids, a regular monthly 
feature, will uncover new 
ways to involve your children 
in computing. 


More fun 















Quickfind, Word Hunt, Disk 
Menu, VIC Timepiece, The 
Automatic Proofreader and 


more. 





Martian Prisoner, The Viper, 
Skydiver, Snake Escape, De- 
mon Star, Cyclon Zap, and Oil 
Tycoon are just a few of the 
ready-to-run games you'll find 
exclusively in COMPUTE!’s 
Gazette each month. Just 
type in the programs and 
watch your screen explode 
with colorful new computer 
game excitement. 


More challenge 


Ready to tackle more ad- 
vanced projects? In COM- 
PUTE’s! Gazette, you'll learn 
how to use tape and disk files, 
how to program the function 
keys, writing transportable 
BASIC, how to make custom 
graphics characters, new 
ways to enliven programs with 
sound, one-touch commands 
for the 64, how to use ma- 
chine language, speeding up 
the VIC-20—and much more! 


More programs 


Programs to help you balance 
your checkbook, store your 
addresses, keep tax records, 
manage your personal busi- 
ness, You can create your 
own programs and games, 


spreadsheets, and data base 
management, load and run 
faster with 64 Searcher, 
VIC/64 Program Lifesaver, 





improve your word processing, 


SSSSSSSSSSSS 
More buying 
guidance 


You'll profit from comprehen- 
sive reviews of everything from 
data-quality cassette tapes to 
software to graphics plotters 
and modems, Virtually any- 
thing that’s compatible with 
your Commodore is reported 
on in COMPUTEI’s Gazette. 
With this kind of expert help, 
every computer purchase you 
make can be the right one! 


Order now 


All you do is mail the postpaid 
card bound into this issue. But 
don’t delay! Subscribe now to 
start receiving every issue of 
COMPUTE!’s Gazette. 


For Faster Service 
Call Toll-Free 
1-800-334-0868 


compiler. It retails for $59.95. 

Another C compiler an- 
nounced for the 64 is the C Power 
compiler from Pro-Line Software. 
The $99.95 package includes all 
programming tools for the C lan- 
guage, including the source code, 
and will be packaged with a 531- 
page introductory book on C. 

Access Software debuted 
Beach-Head II. This sequel to the 
best-selling Beach-Head features 
more graphic violence than its 
namesake but is brilliantly pro- 
grammed. Unlike Beach-Head, it of- 
fers the player a choice of roles 
(Allied Forces Commander or the 
evil Dictator) and a choice of foe 
(the computer or a human oppo- 
nent), The game also improves on 
the not-so-shabby graphics of its 
predecessor, The realistic human 
animation is based on a study of 
videos of humans running, jump- 
ing, climbing, and falling. The au- 
thors, Roger and Bruce Carver, then 
broke down these movements into 
digital format and translated them 
into data for the game. Beach-Head 
II also has impressive voice syn- 
thesis. Suggested retail price is 
$39.95. 

Spinnaker Software an- 
nounced several interesting new 
products. Two carefully designed 
educational offerings, Homework 
Helper Math Word Problems and 
Homework Helper Writing, are for 
students in grades 7-12. Both are 
positioned to help in two of the 
most difficult areas of homework. 
Spinnaker also augmented its two 
gtaphics-and-text adventure series, 
Telarium and Windham Classics. 
The new Telarium products are 
Perry Mason: The Case of the Man- 
darin Murder and Nine Princes in 
Amber. The latter is based on the 
popular Amber book series by 
Roger Zelazny. Both packages retail 
for $32.95. Spinnaker also an- 
nounced three new Windham 
Classics titles—The Wizard of Oz, 
Treasure Island, and Alice in 
Wonderland. Each is priced at 
$26.95. 

Infocom announced Wish- 
bringer, a clever and intriguing fan- 
tasy game designed for newcomers 
to the world of text adventures. 
Price is $34.95. 

Several new titles for the 64 
were announced by Activision. 
Hacker, an open-ended computer 
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ILL DELL LA, 
g 


OBJECTION 


THE QUESTION ASKS FOR AN 
OPINION. 





Two of Spinnaker’s newest offerings are Perry Mason: The Case of the Mandarin 
Murder (from the Telarium Series) and The Wizard of Oz (from the Windham 


Classics line). 





“Log on please” is the only clue you're given in Hacker, a new computer mystery 
game from Activision, Fast Tracks: The Computer Slot Car Construction Kit, also 
from Activision, lets you design and race on your own courses. 


mystery, begins with ‘LOG ON 
PLEASE.” The rest is up to you. All 
you know is that you've acci- 
dentally broken into an unknown 
computer system with no infor- 
mation, rules, or clues. Fast Tracks: 
The Computer Slot Car Construction 
Kit lets you design your own 
courses and race. The program has 
a number of interesting features, 
one of which allows you to save a 
course you've designed and upload 
it to a friend to try. GameMaker, a 
full-featured game design kit, al- 
lows you to select commands and 
characters from menus to create 
your own arcade-style games. Alter 
Ego puts you into real-life situations 
and asks you to make choices— 
thus building a unique personality 
to experience life as someone other 
than yourself. The three-disk pack- 
age was designed by psychologist 
Dr. Peter Favaro. Each of the new 
Activison packages will be released 
this fall or winter. Prices will be 
announced. 





MicroProse announced three 
new simulation games for the 64: 
AcroJet: The Advanced Flight Simu- 
lator, Silent Service: The Submarine 
Simulation, and Gunship: The Heli- 
copter Simulator. Each carries a sug- 
gested retail price of $34.95. 


Ithough much more software 

for the 64 was announced (see 
“CES Perspective: The End of the 
Tap Dance,” following this article), 
there was little new hardware at 
this CES. However, Atari was 
showing what could be a major 
technological breakthrough for the 
personal computer market: a CD- 
ROM (Compact Disc-Read Only 
Memory) peripheral. This is an au- 
dio compact disc player modified 
for data storage with a computer. 
Atari demonstrated a 23-volume, 
nine-million word encyclopedia 
which, remarkably, fit onto only 
one quarter of the space of a com- 
pact disc (550 megabytes can be 







The complete 1541 enhancement system... 








MAKES 
GREAT COFFEE!! 





The 1541 is the slowest disk drive on planet earth. 
Even simple operations seem to take forever. Quickloaders 

and Fastloaders that software-patch the operating system 

are vulnerable to being knocked out of memory, rendering them 
totally useless. Even Flashier products that require permanent 
modifications to the 64 and 1541 can't compete with the blinding 
speed of STARDOS. 


STARDOS accelerates every (yes, we said every) function of the 1541 disk drive. 
Other fast loaders only load PRG files faster. STARDOS also speeds up SEQ, REL, USR 
and DIRECT ACCESS files. Everything including FORMAT, VERIFY, SCRATCH, VALIDATE, 
INITIALIZE and COPY are much faster. In lition STARDOS adds a vast array 













of easy to use commands and utilities all at the touch of a key. 


A sampling of STARDOS features: 
« Accesses ALL types of files up to 1,000% faster! 


* Saves up to 300% faster than normal (with extended 
verify) 

* DOES NOT CHANGE THE SPEED AT WHICH THE 
DRIVE MOTOR SPINS 

* Makes your 1541 MORE RELIABLE and LESS PRONE 
TO BREAK DOWN or OVERHEAT! 

* STARDOS is fully expandable for multiple fast 
disk drives 

* Easy (5 minute) plug in installation. User friendly 
manual 

* 100% compatible with software and serial bus 
peripherals. 

* Adds years of life to your disks and drive in 
reduced wear 

* Cures a number of bugs in the Commodore 64 and 1541 
disk drive including : 
* The damaging ‘Head Knock’ that can mis-align 

your 1541 

* The@: Save with replace bug!! 
¢ The Editor lock-up bug 


* Hamess the full power of your disk drive with the 
built in DOS wedge 

* Lock/unlock files and protect/unprotect disks from 
the keyboard 

* Powertul sector editor allows direct viewing of diskette 

* Upgrades computer and drive to the latest Commodore 
specifications 

* Instant access to the built in mini-wordprocessor 
for short notes and memos 

* Built in copier copies all file types (even relative) 
easily and effectively 

* Built in disk duplicator copies an entire diskettte 
in less than 3 minutes 

* Fully expanded machine language monitor, always 
on line 

* Quality hardware. Full 120 day repair or replace 
warranty 

* Satisfaction guaranteed or money back—no questions 
asked 

* (Oh, by the way, we lied, STARDOS makes LOUSY 
COFFEE) 


Simply the best. $74.95 
[Take advantage of our introduction special at $64.95] 


Personalize your C64! for a $10 (non-refundable) charge 


we will include a 21 character power-on message with 
border and text colors. Example: 


[clo|m|mjo[p fo Ia TE ]- Je T+] 


Background_BlacK _ Border_Red _ Text_Green 
Write of phone for additional information. 
“Trademark of Commodore Business Machines 







WRITE OR PHONE . . 


STZ<RPOINT SOFTWARE 


Star Route 10 Gazelle, CA 96034 [916] 435-2371 


When ordering by mail: 
* $64.95 + 3.00 shipping * Calif. residents add 6% sales tax 
* $64.95 + 4.00COD orders * VISA or Mastercard accepted 

* Shipping out of USA $6.00 _ Please allow 4-6 weeks for delivery, 










stored on a CD, about the same as 
3,400 disks on the 1541). Articles 
can be read into an Atari 520ST’s 
memory in a matter of seconds, and 
search time for any subject is less 
than four seconds. The CD-ROM 
should be available late this year or 
in early 1986. (For more details on 
the CD-ROM, see the August issue 
of COMPUTE!.) While Atari will be 
the first to offer such a product, 
look for this technology to be avail- 
able for the Amiga and virtually all 
future personal computers. 

The long-awaited Amiga com- 
puter was not a popular topic with 
Commodore representatives at 
CES, Although the machine was 
said to have been ready, Commo- 
dore was putting full emphasis on 
the 128 at the show. The Amiga 
was scheduled to be introduced in 
late July. (See a full report on the 
Amiga elsewhere in this issue.) 






|For jee infomation 





l ‘Abacus So eile 


Grand Re Rapids MI 49150 y 


Access Software, Inc. 
925 East $00 South 
Salt Lake City, UT 84105 


Activision, Inc. 
2350 Bayshore Frontage Rd. 
‘Mountain View, CA 94043, 


Batteries Included 

30 Mural St. 

Richmond Hill, Ontario 
Canada L4B 1B5 


or 
17875 Sky Park North, Suite P 
Trvine, CA 92714 


Cardco, Inc. 

300 $. Topeka 

Wichita, KS 67202 
Infocom, Inc. 

55 Wheeler St. 
Cambridge, MA 02138 
MicroProse 

120 Lakefront Dr. 

Hunt Valley, MD 21030 


Pro-Line Software 

755 The Queensway East, Unit 8 
Mississauga, Ontario 

Canada L4Y 4C5 


Spinnaker Software 
One Kendall Square 
Cambridge MA 02139 
Timeworks 

444 Lake Cook Rd. 
Deerfield, IL 60015 


X-10 (USA), Inc. 
185A Legrand Ave. 






































Northvale, NJ 07647 
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CES Perspective: 


The 
End 
Of 


The 


ance 


Kathy Yakal, Feature Writer 


s the crowds began to thin 

the second and third days 

of this summer's Consum- 

er Electronics Show, you 
could see the question in the eyes of 
the exhibitors in McCormick West, 
the building that housed the home 
computer industry's booths. How 
are we doing? 

The question was different this 
time. No more, Who is going to sur- 
vive?, but How can those of us who 
survived best support each other until 
things pick up again? 

“I'm glad to see they're here,’”” 
said one educational software pub- 
lisher—of his competition. 

The sentiment voiced most 
often at the winter show six months 
before had been this: It’s time to 
start moving from the manic pace of 
a new business to the more mea- 
sured strides of a young, evolving 
industry. 

That movement was evident at 
the summer show. Many compa- 
nies chose not to exhibit, sending 
representatives to meet individ- 
ually with the press and to see what 
new products were showing. Oth- 
ers exhibited, but chose to keep 
their costs down by having a small- 





er booth, or sharing booth space 
with other companies. And even 
those companies which had rented 
large booths kept their new product 
offerings down to a minimum. 

The main reason for all of this 
frugality, of course, was to keep 
costs down during this lean period. 
But software developers have not 
been sitting idle, waiting for the 
next generation of home comput- 
ers, the Commodore Amiga and 
Atari ST, They’ve continued to 
wrestle with the untapped capabili- 
ties of existing hardware, and pro- 
vide richer software packages for 
the Commodore 64 in the areas that 
consumers want: 


Entertainment 

Several new adventure games were 
introduced at CES. The Alpine En- 
counter ($29.95) is Random House’s 
first text/graphics adventure. As an 
undercover agent, you have 12 
hours to uncover a political conspir- 
acy being played out in a ski resort. 

To coincide with this fall’s 
paperback release of Frederick For- 
syth’s The Fourth Protocol, Bantam 
Electronic Publishing announced 
an adventure game of the same 
name. In Protocol, you take the role 
of John Preston, a high-ranking 
British Intelligence Officer who 
must stop a plot to smuggle and 
detonate a nuclear device in Eng- 
land. The game is icon-driven; it 
uses a Macintosh-type interface for 
accepting commands. Suggested 
retail price is $34.95. 

Software prices in general have 
continued to fall from the $40-$50 
range to $30 and under. Several 
entertainment publishers at the 
show introduced products for un- 
der $20. BCI Software offered a line 
of trivia games for $4.99, and a 
number of other computer games 
for $9.99, including Super Black Belt 
Karate, Hydrax, and Mummy’s Tomb. 
Every product in Green Valley 
Publishing’s Load ‘n Go, a line of 
traditional board, adventure, and 
maze games, sells for under $10. 
And ComputerEasy has begun 
producing Commodore games for 
$19.95. 

Epyx brought out two sequels 


SuperC 71| 
Compiler 


This is most advanced 

C development pack- 

age available for the 

C-64 or C-128, Super 

C comes with a very 

complete source 

editor; a full K&R ||| 

compiler (without bit 1 
fields); a program 

linker (binds up to 7 

separate modules); and a set of disk utilities. All 
components are available from single menu. 
Supports single and double precision integer and 
float, arrays, structures, strings, more. Ver 
complete editor handles search/replace, 86 
column display with horizontal scrolling and 41K 
source files. The /O ary supports standard 
functions like printf and fprintf. Free runtime 
package included. For C-64/C-128 with 
1541/1571 drive. Includes system diskette and 
user's handbook. $79.95 


Basic 
Compiler | 


This is the most 

advanced BASIC 

compiler available for | 

the C-64. This has 

been our best-selling 

software package for 

the past few months. 

BASIC 64 compiles 

to either superfast 

6510 machine code or "7 

to very compact , 

speedcode. You can even mix the two in one 
rogram. Compiles the complete BASIC 
Bopuage. Its very flexible memory management 

and overlay options make it perfect for all of your 

program development needs. BASIC 64 will 

increase the speed of your programs from 3 to 20 

times. Free runtime package is included. And at 

our very affordable price, can you afford to be 

without BASIC 64? For C-64/C-128 and 

1541/1571 drive, Includes system diskette and 

user's handbook. $39.95 


Other software also available! 
Call now for the name of your nearest dealer 


Abacus fii Software 


P.O. Box 7211 Grand Rapids, MI 49510 616/241-5510 


For fast service call 616/241-5510. For postage and 


handling, include $4.00 per order. Foreign orders include 
$8.00 per item. Money orders and checks in U.S. dollars 


only. Mastercard, Visa and Amex accepted. 


Dealer Inquiries Welcome 


Super Pascal // 
Development|) 
System 


Super Pascal is 
not just a compiler, 
but a complete 
development system. 
It rivals urbo 
Pascal® In both 
speed ano features, 
Super Pascal 
produces fast 6510 machine code. This package 
includes an advanced source file editor; a 
complete Jensen & Wirth compiler with enhanced 
system programming extensions, a new high 
speed DOS (3 times faster than standard 1541) 
and builtin assembler for specialized machine 
code requirements. Compiler supports overlays, 
11-digit arithmetic, debugging tools, graphics 
routines, produces compilation statistics, much 
more, Free runtime package. For C-64/C-128 and 
1541/1572 drive. Includes system diskette and 
complete user's handbook. $59.95 


Video Basic 
Development 
System \ 


This is the most | 

advanced graphics 

development package 

available for the C-64. 

VIDEO BASIC 

adds dozens of 

powerful commands to 

standard BASIC so 

that you can use the 

hidden graphics and sound capabilities of the C- 

64. These include commands for hires, 

multicolor, sprite and turtle graphics, simple and 

complex music and sound, hardcopy to most 

printers, memory management, and more. 
IDEO BASI is currently used by 

professional programmers for commerical 

software development. Free runtime package is 

included. For C-64/C-128 and 1541/1571 disk 

drive. Includes system diskette and user's 

handbook. New low price. $39.95 


For free catalog, please return this coupon to: 
Abacus Software, P.O. Box 7211, 
Grand Rapids, MI 49510 
Name. 
Address. 
City 
State. Zip 
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to its successful Summer Games. 
Winter Games and Summer Games II 
will be available this fall for around 
$30. They have also released two 
games developed by the Lucasfilm 
Games Division, The Eidolon and 
Koronis Rift, in the $30 price range. 

Another sequel is First Star 
Software's Spy vs. Spy: The Island 
Caper ($29.95). Based on the popu- 
lar comic strip in MAD magazine, 
the game uses First Star's propri- 
etary Simulvision and Simulplay 
techniques, which allow both play- 
ers to play and watch each other's 
actions at the same time. 

Carriers at War ($50), a World 
War II historical simulation game, 
and Reach for the Stars ($45), a sci- 
ence fiction strategy game, will be 
distributed by Electronic Arts. 

Datasoft has acquired the li- 
censing rights to Steven Spielberg's 
latest movie, The Goonies. In its ac- 
tion/strategy game by the same 
name, players must work their way 
through eight increasingly difficult 
screens, trying to reach pirate’s 
treasure while avoiding various pit- 
falls. Available in early September, 
it will retail for $29.95. Other offer- 
ings in Datasoft’s fall line-up in- 





clude Zorro ($29.95), a game based 
on the legendary character; and Al- 
ternate Reality, a series of seven fan- 
tasy/role-playing games ($39.95 
each). 


Education 

Educational software publishers 
have also begun to draw on the 
name recognition of familiar 
entertainment characters. Random 
House's line includes several. Char- 
lie Brown's 1-2-3’s calls on Snoopy 
and the rest of the Peanuts gang to 
help teach counting and number 
recognition. Snoopy Writer en- 
courages creativity while instruct- 
ing children in the fundamentals of 
word processing. Garfield, the 
wise-cracking comic strip cat, helps 
build vocabulary skills in Garfield 
Double Dares. And Mr. and Mrs. Po- 
tato Head tests memory and 
concentration skills, while letting 
children create and animate myriad 
variations of the two characters. All 
retail for $29.95. 

Spinnaker’s Fisher-Price series 
features familiar faces and voices; 
Peter Rabbit READING and Jungle 
Book READING are some of the first 
educational programs to use voice 








synthesis. In Prokofiev's Peter and 
the Wolf MUSIC, children can learn 
about music theory while playing 
listening games with characters in 
the story, And First Men in the Moon 
MATH, based on the H.G. Wells 
novel, teaches math functions in an 
outerspace atmosphere, Each pro- 
gram in the line retails for under 
$20. 


Fine art is coupled with intense 
intellectual challenge in The Dol- 
phin's Rune: A Poetic Odyssey from 
Mindscape. Designed by British art- 
ist John O'Neill, it’s a quest for un- 
derstanding—both ancient dolphin 
lore, and the meaning to the verse 
that the dolphin seeks. Suggested 
retail price is $29.95. 


Play Together, Learn Together 
($24.95) is a combination book/ 
software package from Grolier 
Electronic Publishing. It encour- 
ages children and adults to work to- 
gether in developing computer 
skills while teaching fundamental 
reading skills to children. It retails 
for $24.95, Grolier also introduced 
a new series of curriculum-related 
programs, featuring Miss Mouse 
and her Forest Friends. The first six 





Computer Devices Int'l 
1345-A2 Doolittle Drive 
San Leandro, CA 94577 


SUMMER SPECIAL $74.95 CDI == 


CALL TODAY TO ORDER! 


THREE BOOKS OF GAMES 
FOR ONLY $29.00 


COMMOMORE 


Commodore 64 Games. For a limited time only, 
Edited, $12.95, ISBN 0-942386-34-5 you can order all three 
ndlecrniquesforviingyeurowngames, Of these fantastic 
: game-filled books for 
COMMODORE as Bs 64 
64 . Me 


GAMES ening 
Commodore 64 Games for Kids FOR KIDS eaten Bstcalonarced recreational 
Clark and Kathy H. Kidd, james for the whole family to en- 
$12.95, ISBN 0-942386-37-X loy—and you save 25 percent off 
Games that teach as they entertain, For r regular retail price! 
kids from preschool to high school. 2 


COMPUTEI’s Second Book of 
Stara cae eaete naa Commodore 64 Games 
to COMPUTE! Books, P.O. Box 5058, Edited, $12.95, ISBN 0-942386-64-7 
Greensboro, NC 27403. For st Outstanding games plus articles 
service, call toll free 800-334-0868 how to design videogames and write 
(in NC 919-278-9809), adventures, 


COMPUTE! Books are avaliable in the U.K., | 





pieces in the line promote reading 
skills, and introduce children to 
concepts like weather and the 
world around them. Each program 
retails for $29.95. 

Gessler Educational Software, 
which specializes in foreign lan- 
guage versions of educational pro- 
grams, introduced French, Spanish, 
and German versions of Davidson 
& Associates’ Word Attack!. Bataille 
de Mots, Batalla de Palabras, and 
Wortgefecht are available for $49.95 
each. Gessler has also obtained 
exclusive rights for foreign rights 
translations of several Spinnaker 
programs. 

Arrakis Technologies an- 
nounced that it would produce edu- 
cational software under the 
auspices of OMNI magazine. First 
in this MagazineWare group is The 
Cosmic Cookbook, a series of pro- 
grams dealing with scientific topics. 
Arrakis has also reached an agree- 
ment with Sail magazine to produce 
tutorials, Arrakis’ software devel- 
opment system, Socrates, makes it 
easy for nonprogrammers who are 
experts in a given field to be very 
instrumental in a program’s design. 


Henson Associates announced 
that several publishers have adapt- 
ed educational products for use 
with the Muppet Learning keys, de- 
veloped with Christopher Cerf As- 
sociates. These include CBS 
Software’s Dr. Seuss Fix-Up the Mix- 
Up Puzzler, Simon & Schuster’s 
Muppet Institute of Technology se- 
ries, and Broderbund’s Welcome 
Aboard. Henson Associates and 
CBS Software will also be co-pro- 
ducing Fraggle Rock software, 
based on the television series. 


Personal Productivity 

Personal productivity software, as 
the industry has come to define it, 
encourages personal growth and 
helps manage home matters. 
Though it may be enjoyable and 
entertaining, that is not its main 
function. Many new products in 
this category were introduced at 
summer CES. 

The Works!, from First Star 
Software, includes 13 different pro- 
grams in four categories: or- 
ganizers, tools, learning, and arts. 
The programs include Typing 
Teacher, Music Composer, Letter 
Writer, Stock Portfolio, and Graphics 
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Painter. Suggested retail price is 
$49.95. 

QRS Music Rolls, Inc. has be- 
gun selling MIDI Magic, an inter- 
face that connects a Commodore 64 
to synthesizers and musical in- 
struments equipped with a stan- 
dard MIDI (Musical Instrument 
Digital Interface), Cost, including a 
six-song demo disk, is $49.95. QRS 
also offers a line of Music Disks 
featuring the works of artists like 
Liberace and Gershwin. Each is 
$19.95. 

Know Your Own IQ/Know Your 
Own Personality helps computer 
owners do just what the title says. 
Published by Bantam, it’s based on 
the works of psychologists H.]. 
Eysenck and Glenn Wilson, authors 
of books by the same names. The 
package contains four IQ tests, each 
with 40 questions, and three 
personality tests with 210 questions 
each. It retails for $34.95. Another 
new product in their Selfware line 
is The Complete Scarsdale Medical 
Diet, an electronic version of the 
bestselling book, priced at $39.95. 

Scarborough Systems released 
a Commodore version of another 
popular diet plan, The Original Bos- 
ton Computer Diet. Suggested retail 
price is $49.95. 


“Johird-party hardware manufac- 

& turers were in attendance with 
some new product announcements, 
too. The Comtel Group introduced 
the Enhancer 2000, a Commodore- 








compatible disk drive. It retails for 
$219. 

Simplified programming was 
offered by Search Consultants 
International. Their new DOS 
board for the Commodore 64 and 
128 combines a numeric and 
macro-function keypad along with 
a new disk operating system. RAM 
is left untouched. The keypad con- 
nects to the cartridge slot through 
an interface cable. Expected price is 
$99.95. 

Research In Speech Technol- 
ogy, Inc., announced that its Easy 
Speech 64 ($29.95) could be used to 
make selected games “‘talk’’— 
including the Infocom line. 

The Voice Command Module, 
from Eng Manufacturing, Inc., al- 
lows you to use spoken commands 
to control compatible software. The 
package includes a microphone, 
command module, connector and 
cables, and software for $49.95. 


ix months of tap-dancing—of 
waiting for new hardware an- 





nounced at Winter CES—had worn 


on everyone. And though the at- 
mosphere may have been more 
subdued than usual, and the exhib- 
itors and products more sparse, 
there was a more upbeat—almost 
surprised—feeling among those 
people remaining at CES on the fi- 
nal day than had been felt for a 
while: 

We're still here. We've made it 
this far. 


For more information about the products mentioned here, please contact 


your local dealer or write: 


Arrakis Technologies 
1425 Dorchester W., Suite 400 
Montreal, PQ H3G 117 


BCI Software 

P.O. Box 730 

Ringwood, N] 07456 

Bantam Electronic Publishing 
666-5th Ave, 

New York, NY 10103 


Computer Easy 


Epyx 
1043 Kiel Ct. 


18 E. 41st St. 


414 E. Southern Rd. 
Tempe, AZ 85282 


900 Broadway 


Comte! Group 
1651 E. Edinger #209 
P.O. Box 15485 

Santa Ana, CA 92705 


Datasoft 
19808 Nordhoff Pl. 
Chatsworth, CA 91311 


Electronic Arts 
2755 Campus Dr. 
San Mateo, CA 94403 


117 E. 69th St. 


Eng Manufacturing 
4304 W, Saturn Way 
Chandler, AZ 85224 


Sunnyvale, CA 94089 
First Star Software 


New York, NY 10017 
Gessler Educational Software 


New York, NY 10003 


Green Valley Publishing 
7122 Shady Oak Rd. 
Eden Prairie, MN 55344 


Grolier Electronic Publishing 
95 Madison Ave. 
New York, NY 10016 


Henson Associates 


New York, NY 10021 


Mindscape 
3444 Dundee Rd, 
Northbrook, IL 60062 


QRS Music Rolls 
1026 Niagara St. 
Buffalo, NY 14213 


Random House 
201 E. 50th St. 
New York, NY 10022 


Research In Speech Technology 
1825-74th St. 
Brooklyn, NY 11204 


Scarborough Systems 
25 N. Broadway 
Tarrytown, NY 10591 


Search Consultants International 
P.O, Box 401 
Haslett, MI 48840 


Spinnaker Software 
1 Kendall Square 
Cambridge, MA 02139 














NEW UPDATED VERSION 


Now Includes 


ANOTHER MASTERPIECE 
1541 FAST NIBBLER 
The Programmer MIKE J. HENRY has done it AGAIN with 


EACTUAL’CAA 




























































FOR THE COMMODORE € 64 


© Automatic back-up of nearly all protected disks in 68 Seconds! 
DUAL DRIVE «Using unique track analyzation process, protection schemes are treated as normal 
data giving you an original back-up. 
‘© Equipped with Special Auto-Back-up.** 





























EASY TO USE 
ALL VERSIONS 
ON ONE DISK 





SINGLE © FASTEST single drive back-up ever made, less than2 Minutes! 


















® Backs-up all standard disks in only Passos! ONLY $29.95 
1 541 @ Nibbles protected disk in less than 3 Minutes! ADD $3.00 SHIPPING 
TWO DRIVES  « Automatically backs-up a standard disk in only35 Seconds! 
© Nibbles protected disk in less than 60 Seconds! Check, Money 
1 4 © Also equipped with Special Auto-Back-up** Order, VISA, 
MASTERCARD. 
Dealer **SPECIAL Accepted 
Auto-Back-up After booting up, the computer is no longer necessary, and may be Add $3.00 for 
Inquiries disconnected The drives automatically detect the disk being inserted and removed. C0.D's 
Wel ! An absolute must for multiple back-ups!!! 
‘elcome: All routines are highly reliable and include full verify option. ALWAYS SAME 
DAY SHIPPING 





BASEMENT BOYS SOFTWARE 


P.O. Box 30901 Portland, OR 97230-0901 





(503) 256-5506 








pecherteennik t CompuServe Hees You 
Robotics Automat Kit} | Get Ti Most From Any Compuren. 
For the Commodore 64, IBM & Apple | | «tun cosinang ee tin eck tai 
Easily build ct new i bay fica : and trivia 
10 different Bi ipanedanerinee ee souee line ticket 
aoe statistics ‘= Over 800 other practical and 
configurations, pe eae nerte fascinating options 


from precision clipping se 

robotic arms to To access pan a need a CompuServe Information Ser- 

sorting machines. vices Subscription Kee aicgnites retest possibly, easy-to-use 
communications software. 


Yes! Send me my CompuServe Subscription Kit! | 





Simulate 
industrial > 

automated 
equipment 


| Heres my order for___CompuServe Information Services Subscription Kit | 
Kit includes 





interface, 
industry 

standard 

Robotic Control Language 
based on Superforth 


SPECIAL 
INTRODUCTORY OFFER 


189.00 


Total Package 


$4.50 Ship U.S.A. 
$2.00 C.0.D., U.S.A. 
$20.00 overseas 


Commodore 64 TM 
18M TM of IBM Corp 


Easy & Fun 
to read 
user manual 


CALL TOLL FREE 
for orders outside of California 
(800) 633-6335 


for additional information 
(415) 651-3160 


PARSEC RESEARCH 
Box 1766, Fremont, CA 94538 
Dealer Inquiries Invited 








| Clpayment enclosed C1MasterCard Bivisa er a) | 
MaterCardlViSA oa esneeane Ue C0) Shea ee 
Exp Date Shipping $250 | 

Signature as it appears ee | 


Please make checks | ‘to CompuServe information Services, i 
3-4 weeks for delivery it 
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BASIC 


Drawing Lines And Borders 


IMAGKC 


Michael S. Tomezyk 


Michael S. Tomezyk is a former Commodore 
marketing executive and product designer. 
His recent book, The Home Computer 
Wars, describes the rise of Commodore and 
is published by COMPUTE! Books. 


Did you ever try to print a character 
in the bottom right corner of the 
screen? That's just one problem you 
have to solve if you want to draw a 
border all the way around the 
screen. This month we're going to 
solve this problem, and learn how 
to'draw lines and borders as well. 
All of these examples work with the 
Commodore 64, VIC-20, Plus/4, 16, 
and the 128. 

Before we begin, find the 
ASCII and CHR$ codes appendix in 
the back of your owner's manual. 
You'll be using these codes 
throughout this lesson. 

You can print a CHR$ code just 
like any letter, character, or com- 
mand. There’s even a CHR$ code 
for inserting characters and chang- 
ing colors, as you'll seeina 
moment. 

To show you how it works, the 
CHR$ code for clearing the screen 
is CHR$(147) and the CHR$ code 
for the heart symbol is CHR$(115), 
so if you want to clear the screen 
and print a heart, type the 
following: 

10 PRINT CHRS(147) CHRS(115) 


Type RUN and press RETURN. For 
your convenience, here’s a handy 
chart showing the CHR$ codes 
we'll be using in this lesson: 


CHR$§ Code Function or Symbol 


17 Cursor down 
18 Reverse on 

19 Home 

29 Cursor right 
32 Space 

96 Horizontal line 
Heart graphic 
Reverse off 
Clear 
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148 
157 
173 
174 
176 
189 


Insert 

Cursor left 

Lower left corner 
Upper right corner 
Upper left corner 
Lower right corner 


Drawing A Horizontal Line 
We begin by drawing a horizontal 
line across the screen. Type the 
following line as shown and press 
RETURN (if you have a VIC, sub- 
stitute the number 22 for 40 in all of 
these examples): 
10 PRINT CHR$(147);;FOR H=1 TO 
40:PRINT CHRS(96);:NEXT 

We begin by clearing the 
screen. The FOR-NEXT loop is used 
to repeat actions. Everything be- 
tween the FOR and NEXT portions 
of the command will be repeated 
the number of times shown. In this 
case, we PRINT CHR$(96) 40 times. 
The semicolon causes the 40 graph- 
ics symbols to be printed next to 
each other (otherwise they’ll be 
“stacked” down the screen on dif- 
ferent lines). 


Drawing Lines With Reverse 
Spaces 
Did you ever notice your keyboard 
does not have a solid block graphics 
symbol? That's because you can use 
a reverse space as a solid block. To 
do this, you must print the RVS ON 
command followed by a space. In 
this example, we're going to use 
CHR$ symbols: 
10 PRINT CHRS$(147) CHRS(18);:FOR 
H=1 TO 40:PRINT CHRS(32);;NEXT 
Type RUN and press RE- 
TURN. This line clears the screen, 
then prints 40 reverse spaces 
across, which appears as a thick 
solid horizontal line. CHR$(18) 
turns on the reverse function. 
CHRS$(32) is the space character. 
Notice that CHR$(18) is needed 
only once, before the 40 spaces are 
printed. Turning on the reverse 








function makes all succeeding 
characters print in reverse, until 
you either turn off reverse or print a 
carriage return. 


Drawing A Vertical Line 

Now let's print a vertical line: 

10 PRINT CHRS(147);FOR V=1 TO 
18:PRINT CHRS$(18) CHR$(32):NEXT 

This line looks the same as our 
previous example, except we left 
out the semicolon after CHR$(32). 
Without the semicolon, the com- 
puter automatically puts every 
PRINT statement on a different 
line. It adds a carriage return, which 
moves the cursor to the beginning 
of the next line down, to each item 
printed. Here, there are 18 PRINT 
statements—and 18 solid blocks— 
and they each get printed on a dif- 
ferent line, which makes them look 
like one solid vertical line, Because 
a carriage return turns off the 
reverse function, we have to put the 
CHR$(18) between FOR and NEXT, 
to make sure the spaces are printed 
in reverse. 

Now let's start building our 
border. Enter and RUN this pro- 
gram (for the VIC, use C=22:L=18 
in line 5): 


5 C = 40:L = 20 

10 PRINT CHR$(147);:FOR H = 1 
{SPACE}TO C:PRINT CHR$(18) 
(SPACE) CHR§(32)7 :NEXT 

26 FOR V = 1 TO LsPRINT CHRS(1 
8) CHR$(32):NEXT 

30 FOR H = 1 TO CrPRINT CHR$(1 
8) CHR$(32);:NEXT 


Well, we almost have our bor- 
der. How do we get a vertical line 
on the right side of the screen? In 
this case, we'll modify the “verti- 
cal’ section of our program (line 20) 
so instead of printing 20 vertical 
blocks (18 on the VIC), we'll print 
20 lines and each will contain one 
reverse space, 38 blank (empty) 
spaces, and another reverse space. 
The final reverse space will create 
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the vertical line on the right side of 
the screen, (Again, use C=22:L=18 
if you have a VIC.) 


5 C = 40:L = 20 

18 PRINT CHR$(147);:FOR H = 1 
{SPACE}TO C:PRINT CHRS$(18) 
(SPACE } CHR$ (32); :NEXT 

20 FOR V = 1 TO L:PRINT CHR$(1 
8) CHR$(32); 

25 PRINT CHR$(146) SPC(C-2) CH 
R$(18) CHR$(32);:NEXT 

38 FOR H = 1 TO C:PRINT CHRS$(1 
8) CHR$(32);:NEXT 


Line 20 starts out the same as 
the previous line 20, Then in line 25 
we PRINT CHR$(146) which turns 
off the reverse function (RVS OFF). 
Then we use a special command— 
the space command (SPC)—to put 
Spaces across the screen, Because 
we turned off the reverse function, 
these are regular spaces which ap- 
pear as empty blanks on the screen. 
Finally, we add a single reverse 
space at the end of the line. 

So here’s what we have: Line 
10 clears the screen and prints a 
horizontal line across the top of the 
screen. Line 20 prints 20 lines (18 
on the VIC)—each of these lines 
begins with one reverse space, fol- 
lowed by 38 (40—2) blank spaces 
(20 on the VIC), and ends with one 
reverse space. Line 30 is the same 
as line 10. Put them all together and 
you have a border. 

You can change the up-and- 
down length of the border by 
changing the value of Lin line 5 toa 
smaller number. 

However, if you want to make 
a complete border around the edge 
of the screen, you need to know an- 
other trick because printing a 
character on the last line of the 
screen automatically causes the 
screen to scroll up, and printing a 
character at the bottom right corner 
is especially difficult. 





Printing Titles In The Border 
Before we tackle our most difficult 
problem—the bottom right corner 
of the screen—let’s see how to in- 
sert a title or other information in- 
side the border. 

Add the lines below to your 
existing program. To do this, just 
type each line and press RETURN. 
They will be automatically added to 
the program shown above. 

40 PRINT CHRS(19);:PRINT:PRINT 


50 FOR M=1 TO 10:PRINT CHR$(29); 
:NEXT:PRINT“COMPUTER” 
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To properly position our title 
inside the border—and leave the 
border on the screen when we print 
the title—we start by using PRINT 
CHR$(19) to HOME the cursor. 
HOMEing the cursor doesn’t 
change or erase anything else on 
the screen. It simply sends the 
cursor to the HOME position, 
which is the top left corner of the 
screen. Next, we use two PRINT 
commands to move two lines down 
the screen. A FOR-NEXT loop then 
repeats 10 cursor right commands. 
This positions the title 10 spaces 
from the left edge of the screen. Fi- 
nally, we print our title, which in 
this case is the word COMPUTER. 
The title could be longer, on several 
lines, or other information or 
graphics can be presented inside 
the border. Use HOME and 
PRINTed cursor commands for 
positioning or centering. 


Printing A Full Screen Border 
The program below prints a border 
around the entire screen—includ- 
ing the tricky bottom right corner 
(use C=22:L=21 for the VIC). 


5 C = 48:L = 23 

1@ PRINT CHR$(147);:FOR H = 1 
{SPACE}TO C:PRINT CHR$(18) 
{SPACE} CHRS$ (32); :NEXT 

26 FOR V = 1 TO L:PRINT CHR$(1 
8) CHRS(32); 

25 PRINT CHRS$(146) SPC(C-2) CH 
R$(18) CHR$(32); :NEXT 

36 FOR H = 1 TO C-2:PRINT CHRS$ 
(18) CHRS$(32); :NEXT 

4@ PRINT CHRS$(18) CHR$(32) CHR 
$(157) CHR$(148) CHR$(32); 

58 GOTO 50 


Line 10 draws a horizontal line 
across the top of the screen; lines 
20-25 set up the next 23 lines (21 
for the VIC)—each screen line con- 
tains a solid block at the beginning 
and end with spaces in between; 
line 30 draws a horizontal line 38 
spaces long on the bottom line of 
your screen (20 spaces long on the 
VIC). 

But the key that makes a full 
border possible, by placing a 
character in the bottom right corner 
of the screen, is line 40. Line 40 be- 
gins by printing a reverse space on 
the bottom line at the second to the 
last position. We then cursor left 
one time, with CHR$(157). This po- 
sitions the computer on top of the 
reverse space just printed. Next, 
and most important, we use an IN- 





SERT editing command, CHR$(148), 
to push the character one space 
over to the right—into the last (bot- 
tom right) position on the screen! 
The inserting action pushes the 
reverse space character over to the 
last position and leaves the com- 
puter positioned in the second to 
the last position. PRINT a 
CHR$(32) space here and the bor- 
der is finished. Now we can HOME 
the cursor and position it to display 
a title, or even a series of titles, 
instructions, or educational prob- 
lems inside the border. 

Line 50 is a GOTO to “hold” 
the border display. If you don’t 
have a FOR-NEXT time delay loop, 
a GOTO, or a continuation of the 
rest of your program, the program 
will END and the “READY” mes- 
sage will mess up your border. 


A Thin-Line Border With 
Custom Corners 

Here’s a variation on the border, us- 
ing “thin-line’ graphics. The key 
difference here is that we have to 
put corner graphics in all four cor- 
ners of our border (use 
C=22:L=21 for the VIC). 


5 C = 40:L = 23 

1@ PRINT CHR$(147) CHR$(176);: 
FOR H = 1 TO C-2:PRINT CHR$ 
(96); NEXT 

20 PRINT CHRS$(174);:FOR V = 1 
(SPACE}TO L:PRINT CHR$(125) 
SPC(C-2); CHRS$(125);:NEXT 

30 PRINT CHR$(173);:FOR H = 1 
{SPACE}TO C-3:PRINT CHR$(96 
7 :NEXT 

48 PRINT CHR$(189) CHR$(157) C 
HRS$(148) CHRS$(96); 

58 GOTO 58 


A Rainbow Border 

You can set the color of the border 
however you like, either by using 
the CHR$ codes that determine 
color, or by using standard CON- 
TROL color commands inside 
quotes, where appropriate. This 
border is used a lot by software 
developers. It prints reverse spaces 
in different colors, using a random 
number formula to pick the colors. 
You can also vary this by “shrink- 
ing” it down and making a smaller 
border, perhaps in the center of the 
screen, Here it is (use C=22:L=21 
for the VIC): 


5 C = 46:L = 23 

1@ PRINT CHR$(147);:FOR G = 1 
{SPACE}TO C:GOSUB 580:PRINT 
C$ CHRS$(18) CHR$(32);:NEXT 








28 FOR G = 1 TO L:GOSUB 500:PR 
INT C$ CHR$(18) CHR$(32); 

25 PRINT CHR$(146) SPC(C-2); 

30 GOSUB 580:PRINT C$ CHR$(18) 
CHR$ (32); :NEXT. 

48 FOR G = 1 TO C-1:GOSUB 560: 
PRINT C$ CHR$(18) CHR$(32); 
NEXT 

58 GOSUB 5@0:PRINT C$ CHR$(18) 
CHR$(157) CHR$(148) CHRS(3 


68 GOTO 68 

506 R = INT(8*RND(1))+1:G$ = " 
{BLK} (WHT) (RED) (CYN} {PUR} 
(GRN} (BLU} (YEL}":c$ = MID$ 
(G$,R,1) :RETURN 





REM: If you have a Commodore 
64, Plus/4, 16, or 128, you can in- 
clude up to 16 colors instead of 8. 
Change the number 8 in the random 
number formula to 16 and type all 16 
colors in line 500, in quotation marks, 
To get the first eight numbers, hold 
down the CONTROL key and press 
each color key in order, then hold 
down the Commodore key and press 
those same keys, to get the next eight 
colors. 

Also, to make the display look 
better, eliminate the color of the back- 
ground screen. For example, if the 
screen is colored blue, eliminate blue 
from the colors in quotation marks 
and type a7 instead of 8, or 15 instead 
of 16 if you use 16 colors, This helps 
because if you use the same color as 
the background in your rainbow bor- 
der, those cyan blocks may look like 
“empty” spaces. 
se 

The key to this program is the 
GOSUB in line 500, Line 500 selects 
a random number from one to 
eight, then defines the variable G$ 
as a group of eight color com- 
mands, and finally uses the MID$ 
function to define C$ as one of 
those colors selected at random. For 
example, if the third color is red and 
the random number is 3, then C$ 
will equal the color red, This means 
if you print C$ it will be the same as 
printing CTRL-RED—in other 
words, wherever you see a GOSUB 
500 in the program, it tells the com- 
puter to jump down to line 500, 
pick a color, then jump back to 
where it left the main program and 
keep going. The RETURN com- 
mand in line 500 sends the program 
back to its previous position. The 
result is that every GOSUB 500 in 
this program resets the color of the 
characters being printed at that 
point. @ 





GOT A COMPUTER? 
GOT A PHONE? 


GET A DEGREE. 


Now, for the first time, 
you can take real courses, 
from live instructors, right in 
your home or office, right on 
your own personal computer. 
You can use an Electronic 
Library for research, tune-in 
to interactive seminars, and 
take advantage of a full 
counseling center. 

The Electronic University 
is a national educational sys- 
tem that connects your per- 
sonal computer to recognized 
colleges and universities 
located throughout the coun- 
try. You can study nearly any 
subject at your own pace, and 
on your own schedule. 

Finally, technology is eli- 
minating those barriers (time, 
location, and high cost) that 
have prevented you from 
completing your college edu- 
cation, entering a Master's 
Degree Program, or just taking 
that course you've always 
wanted to take. 

No computer knowledge 
is required to use the system 
and all communication costs 


are included in the course 
prices. 

Degrees available through 
the Electronic University 
include: Associate Degrees in 
Business and General Studies, 
Baccalaureate Degrees in 
Business and the Arts, several 
MBA Degrees, and specialized 
Certificate Programs. There is 
also a variety of non-credit 
courses offered over the sys- 
tem, as well as Tutoring, 
Programs for children. 

Isn't it time to involve 
yourself in education once 
again? Have some fun, become 
part of the spirit of a national 
university system, and better 
yet, open up a world of new 
opportunities for yourself and 
your entire family. Call us 
today: 


800-22LEARN or 
800-44LEARN 


in California. 


THE ELECTRONIC UNIVERSITY 
505 Beach Street, San Francisco, CA 94133 
415/928-2800 








hints C2 thos 


Gordon J. LeVee 


If you've discovered a clever time- 
saving technique or a brief but 
effective programming shortcut, 
send it to “Hints & Tips,” c/o 
COMPUTE!s GAZETTE. If we use it, 
we'll pay you $35. 


Certain BASIC commands—IF- 
THEN, FOR-NEXT, GOSUB- 
RETURN—travel in pairs. The first 
word starts a series of actions, the 
second wraps things up. READ and 
DATA are another such pair. The 
general idea is to put some infor- 
mation into DATA statements and 
then use READ to do something 
with that information. 

READ and DATA are often ex- 
plained with an example like this: 


10 READ A,B,C 
20 PRINT A*B*C 
30 DATA 2,3,4 


Inline 10, values 2,3, and 4 are 
assigned to variables A, B, and C. 
Line 20 multiplies them. This isn’t a 
particularly good example, how- 
ever—10 A=2: B=3: C=4 isa 
shorter, simpler way to accomplish 
the same thing. 

Two cases where READ- 
DATA is the best method for han- 
dling a lot of information are arrays 
and machine language (ML) 
programs. 


Information In Bulk 

Arrays are designed to handle long 
lists of information. You need only 
two steps to set up an array. First, 
tell the computer how big the list 
will be—its dimension. Second, fill 
out the list. Here’s an example: 


16 DIM s$(50) 

26 S$(1)="ALABAMA" 
38 S$(2)="ALASKA" 
48 S$(3)="ARIZONA" 


Unfortunately, the variables 
are defined rather clumsily. At this 
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rate, you'd need 50 lines to put all 
50 state names into the array, 
READ and DATA give you a better 
way to do the same thing: 


18 DIM S$(56) 
28 FOR X=1TO50:READS$(X) :NEXT 
5@8 DATA ALABAMA, ALASKA, ARIZON 


A 
518 DATA ARKANSAS, CALIFORNIA, C 
OLORADO 


Line 10 DIMensions the string 
array S$ to a size of 50, Line 20 then 
loops from 1 to 50, reading state 
names from the DATA statements 
(a comma separates each item, so 
you can put more than one on each 
line). 

If you run this program, you'll 
get an OUT OF DATA error be- 
cause there are only six items in the 
DATA statements and line 20 is try- 
ing to READ through 50 of them. 
The computer keeps track of which 
DATA statements have been used, 
and each entry in a DATA state- 
ment is read only once. We'll see in 
a moment how you can READ them 
more than once. 

Another common use for 
DATA statements is POKEing ML 
programs into memory. ML pro- 
grams can be set up via a BASIC 
“loader” program like this: 


1@ FOR X=82810838:READ Y1POKE 
(SPACE}X,Y¥:NEXT 

28 SYS828 

38 DATA 169,72,32,210,255,169, 
73,76,218,255 

48 DATA 999 


When you type SYS 828, this 
short ML program prints the word 
HI. But once again there's an error. 
If you run it, you get an ILLEGAL 
QUANTITY error in line 10, Num- 
bers POKEd into memory have to 
be in the range 0-255. Anything 
higher or lower, like the 999 in line 
40, leads to an error. 

The error message is some- 
what misleading because the prob- 
lem is caused by the 999 in line 40, 
but the computer says the error is in 
line 10. The READ worked fine; it 








Recycling Selected 
DATA Statements 


gave Y a value of 999. It’s the POKE 
that led to an error. The computer 
doesn’t know when you READ 
whether you're going to try to put 
the number into memory or not 
(READ-DATA can be used for a 
variety of purposes besides 
POKEing ML programs). 

Most BASIC loaders have long 
lists of DATA statements full of 
numbers, If you've made a mistake, 
like the 999 in line 40, one obvious 
way to find it is to search through 
all of the numbers, looking for one 
notin the 0-255 range. But there’s a 
quicker and simpler way. 


Checking The Pointer 

DATA statements are read only 
once, and the computer knows 
which ones have been read (or not). 
As you may have guessed, there’s a 
pointer in memory that can tell you 
how far into the DATA the program 
has gone. 

Run the program above; it 
stops with an ILLEGAL QUAN- 
TITY error. The problem in line 10 
is that it’s READing and POKEing, 
and has reached a number which 
can’t be POKEd. Now type PRINT 
PEEK(63) + 256*PEEK(64) and 
you'll see a 40. Locations 63 and 64 
point to the DATA line most re- 
cently read. LIST 40 reveals the 
problem: 999 is too big. Change it 
to 0 and the program will run. 

PEEKing 63-64 can save a lot 
of time if you’ve made an error in 
DATA statements and need help 
pinpointing it. You can zero in on 
the offending line, rather than 
searching tediously through a long 
list of numbers, 

You could also add the PEEKs 
to your program to see which 
DATA statement is being read, a 
useful technique when you’re 
debugging a program with several 
sets of DATA statements. 


Rereading The DATA 


Suppose you've written a short 
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reveal the protection mothods used on your originals. A diskette with all soft: S-CREATE MEGA FILES, 9-WAITE OPENING MESSAGE 
bla for a minimum extra charge, This may not be the only book 3-ADO TO SYSOP'S CORNER 10.READ LOG 
your should have for the C-64, but it is certainly the one book you should 4:NEW SYSOP'S CORNER 11.CYCLE LOG 
not be without! 5:READ MESSAGES 12.READ DOWNLOAD FILE 
6-SCRATCH MESSAGE 13-SCRATCH DOWNLOAD FILE 
7-CYCLE MESSAGES 14-ADD TO OTHER SYSTEMS 
(C64 Book only $19.95 US $59.95 15:CREATE OTHER SYSTEMS 
Book & Disk of all programs $29.95 US . 
Vic 20 book... Cart, & Tapes only $9.95 US + Leveled Access + Expert Mode 
THIS MANUAL DOES NOT CONDONE PIRACY + Private Message Base + Open Chalk Board for 
“SHIPPING: $2.00 + Up to 300 Passwords Highest Level Access 








phone oraers Canada orders must ben US 
Dollars VISA — MASTER CARD — COO 


Programs lor C-64 $200 S&H on all orgers 


SoC TN M eg aSoft Limite 
5 





P.O. Box 1080, Battle Ground, Washington 98604 
Phone (206) 687-5116 * BBS 687-5205 Aner Hours Compuler-to Computer 





Software Submissions Invited. 
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| STARPOINT SOFTWARE proudly presents | 


8+8+8+8+8+A+A-8 

[say Icepick], a revolutionary new concept in 
software de-protection for the Commodore 
64. ISEPIC is not a disk duplication system, 
but an extraordinary hardware/software 
combination that actually bypasses any disk 
protection scheme. ISEPIC captures and 
saves the protected program as it runs in the 
64's memory, this ‘‘snapshot"’ becomes ac- 
cessible to the user for complete inspection 
and alteration. From this image, ISEPIC can 
automatically create a compact, auto-booting, 
fast-loading file which is completely un- 
protected and self contained, 


yr Copies ALL memory-resident software 

+ ISEPIC’d programs load many times 
faster than originals 

yr ISEPIC is invisible to software—cannot 
be defeated 


xx Eliminates drive ‘‘knock"’ due to antique 
protection schemes—adds years of life 
to your drive 


yr Automatically '‘cracks"’ protected pro- 
grams into single, auto-booting, super- 
fast loading files 


yz Place multiple programs on a single 
diskette 


yz Create auto-booting, fast-loading 
versions of your own programs 


yr Cracked programs are completely self- 
contained and run independently of the 
ISEPIC adapter 


y Copies software with a flick of a switch 


tr ISEPIC comes complete and ready-to- 
run, just plug into expansion port 


yr Programs cracked by ISEPIC may be 
used on MSD or 4040 drives as well 
as hard disks regardless of original pro- 
tection schemes 


When ordering by mail: 
* $64.95 + 3.00 shipping 
* $64.95 + 4.00 COD orders 
* Calif, residents add 6% sales tax 
* VISA or Mastercard accepted 
* Shipping out of USA $6.00 
Please allow 4-6 weeks for delivery. 


WRITE OR PHONE . . 


ST/<RPOINT SOFTWARE 


Star Route 10 Gazelle, CA 6034 [916] 435-2371 











melody to be played at certain points in a program. 
You translate the notes to the correct numbers and 
put them into DATA statements, A FOR-NEXT loop 
then reads through them and plays the tune. 

But items in a DATA statement are used only 
once. To play the music again, the program has to be 
able to go back and reread the DATA. The solution? 
Insert a RESTORE command before the loop. RE- 
STORE tells the program to forget about which 
DATA has been read and return to the beginning of 
the list. 


RESTORE To A Selected Line 


With the exception of relative files, all tape and disk 
files are sequential. This means information is read in 
the same order as it was written (first in, first out). 

As we've seen, DATA statements are essentially 
sequential files stored in memory rather than on tape 
or disk. They're read from beginning to end. RE- 
STORE sets a pointer to the beginning. 

With a few PEEKs and POKEs, we can transform 
the READ-DATA combination from sequential to 
random access. This method allows us to choose 
which DATA statements will be used next. 

Why would you want to RESTORE to a certain 
line? Say you have a program containing several dif- 
ferent types of DATA statements: an array or two, 
custom characters, sprites, an ML routine, and music. 
If you wanted to use the music more than once, RE- 
STORE might not be enough. It only sets the pointer 
to read from the beginning of the DATA (which could 
be the information for sprites or arrays). 

The improved BASICs in the Plus/4, 16, and 128 
have the ability to RESTORE to a certain line number. 
RESTORE 200 sets the pointer to line 200, for ex- 
ample, The VIC and 64 can’t do this directly, though, 
You need to add this line to your program (change the 
line number to put this line right before the READ): 
300 FOR X=0 TO 3: A%(X)=PEEK (63+X): NEXT 


Locations 63-64 hold the line number of the last 
DATA statement to be read and 65-66 keep track of 
where in memory the line begins. By keeping this 
information in an integer array, you can later POKE 
the values back and reset the pointers, (To save a little 
memory, add DIM A%(3) at the beginning of the pro- 
gram.) Perform the PEEKs before you start READing 
the section of DATA statements you'll be returning 
to. 

To go back to the selected section, insert this line 
before starting to read the DATA: 

490 FOR X=0 TO 3: POKE 63+X,A%(X): NEXT 


You can repeat this for other sets of DATA in the 
program by changing the variable name (B% or C%, 
for example). Or use a two-dimensional array to keep 
all of the pointers together. 

These four PEEKs and POKEs give you a choice 
of where to start reading information you've already 
looked at—random access to DATA. @ 








User Group 


date 





When writing to a user group for information, please remember to enclose a 
stamped, self-addressed envelope. 

Please note that COMPUTE!’s GAZETTE will no longer publish telephone 
numbers of user groups or bulletin board systems. 

Send additions, corrections, and deletions for this list to: 








User Group Notes 

Those interested in astronomy and/or the space program might want to contact 
a new special interest group (SIG), which is forming now. For more information, 
write to Astro 64, 9 Lynda Rd, Portland, ME 04103, 

Also, those living in Alberta who are interested in starting a user group can 
contact Randy R. Coutts, Box 1584, Slave Lake, Alberta, Canada TOG 2A0. 

The Fresno 64 Users’ Group has a new address: c/o Greg Edwards, 689 W. 
Santa Anna #102, Clovis, CA 93612. 

The Pasadena Commodore Club in Monrovia, CA, has asked to be deleted 
from our listing. 

The Ft. Walton Beach Commodore Users Group has a new contact person 
and phone number. Information may be obtained by writing the group in care of 
Chris Poole. 

A users’ group is forming in Bloomfield, NJ. For information, contact Eric 
Williams, P.O, Box 1874, Bloomfield, NJ 07003. 

The Suncoast 64s have a new address: c/o Ray Crisp, P.O. Box 5112, Palm 
Harbor, FL 33563-9512, 

The former C-64 U.S.E.R.S. of Rochester, NH, are now 64 Users, and may 
be contacted at Box 878, Rochester, NH 03867-0009. 

RAM ROM 84, a user group in Englewood, FL, has a new address; P.O, 
Box 1369, Englewood, FL 34295-1369. 

Both the Monmouth and the Galesburg chapters of the Western Illinois 
Commodore Users Group (WICUG) have dissolved, and their memberships have 
been absorbed by WICUG, Information about WICUG may be obtained by writ- 
ing to the club in care of Robert Cokel, president, 906 West 6th Ave., Mon- 
mouth, IL 61462. 

The Decatur Commodore Computer Club (DC3) has a new contact person 
and address, Inquiries should be sent in care of Eric F. Martin, 664 W. Grand, 
Decatur, IL 62526, 

There has been a name and address change for the Rancocas Valley User 
Group. It is now the Rancocas Valley Commodore Users Group, P.O. Box 505, 
Mt. Laurel, NJ 08054. 

The Folklife Terminal Club also has a new address: Box 555-R, Co-op City 
Station, Bronx, NY 10475, 

The Western Indiana Commodore Users (W.I.C.U.) has a new contact per- 
son and address, For information, write to Steve Han, W.I.C.U., P.O. Box 1898, 
Terre Haute, IN 47808. 

Another new address is for the Montgomery County Commodore Com- 
puter Society, Contact Dave Menaker, P.O, Box 2689, Silver Spring, MD 20902. 
Persons trying to contact the Brooklyn, New York, Commodore Users 
Group by phone should note that the number published in the June issue is a 
voice phone, not a bulletin board system. Please call the number only between 
6:30-9:30 p.m. on weekdays, and from 10:00 a.m.-1:00 p.m. on weekends, No 

modems, please. 

The Albany-Corvallis (OR) C64 Users Group has changed its name to the 
Albany-Corvallis Users Group. The address remains the same: c/o Nellie Strat- 
ton, 800 S. 19 St., Philomath, OR 97370. 

_ The Newport Computer Club, in Newport, RI, has a new zip code. 
Correspondence should be sent to: Newport Computer Club, P.O. Box 1439, 
Newport, RI 02840-0997. 

The bulletin board number published recently for the World Wide User 
Group in Tacoma, WA, was incorrect. The correct number for the 24-hour, seven 
days a week board is (206) 535-0574. 


User Group Support From Commodore 

User groups interested in joining “Commodore World,”” Commodore's new sup- 
port network for user groups, should contact the company for further details: 
Commodore Business Machines, Inc., 1200 Wilson Dr., West Chester, PA 19380, 
Attn: User Group Coordinator. 


COMPUTE! Publications 
P.O. Box 5406 

Greensboro, NC 27403 

Attn: Commodore User Groups 


New Listings 


ALABAMA 

Sequoyah Users Group (S. 
2301 Godfrey Av 

East Alabama Use: 
ville, AL. 36265 

ALASKA 

Sitka Commodore User's Group, ?.0. Box 2204, 
Sitka, AK 99835 

ARIZONA 

User Group 64, Jeff Miller, 4937 W. Townley Ave., 
Glendale, AZ 85302 

ARKANSAS. 

Commodore Computer Club of Pine Bluff, Paul 
Harper, president, 2811 Belmoor, Pine Bluff, AR 
71603 

Ark-La-Tex Commodore Users Exchange (CUE), 

P, Wx 6473, Texarkana, AR-TX 75503 

The Personal * Touch Commodore User Group of 
Hoxie and Walnut Ridge, Larry Simmons, c/o 
General Delivery, Walnut Ridge, AR 72476 

CALIFORNIA 

The 20/64 Group, 2170 W, Broadway, Suite 529, 
Anal » CA 92804-2446 

Oceana-64 Commodore User Group, Sam Brooks, 
1004 Plover Way, Oceanside, CA 92056 

Civic64 User Group, Nathan Okun, P.O. Box 2442, 
Oxnard, CA 93034-2442 

Computer Users Group of Ukiah (CUGU), Glen 
Glass, 9500 West Rd., Potter Valley, CA 95469 

San Francisco Commodore Users Group, Roger 
Tierce, 278 27th Ave. #103, San Francisco, CA 
94121 

Commodore Users Group of Santa Cruz, ElliGould, 
P.O, Box 8068, Santa Cruz, CA 95061-8068 

COLORADO 

Rocky Mountain Commodore Club, Ray Brooks, 
P.O, Box 377, Aspen, CO 81612 

Colorado PET Users Group, 676 S. Quentin St., Au- 
rora, CO 80012 

Ft. Collins C%, Judy DiFrancesco, 1625 Centennial 
Rd., Ft. Collins, CO 80525 


CONNECTICUT 

The Naugatuck Valley Commodore Users Group, 
James Thompson, Ray St., Waturbury, CT 06708 

DISTRICT OF COLUMBIA 

C-64 Commodore Club, 1947th HSG- 
SVCS, Pentagon, Washington, 

FLORIDA 

Clearwater Commodore Club, Janice Steffens, 
pres., 1250 Cleveland, Clearwater, FL 33516 

Commodore Users Group of SW Florida, P.O. Box 
6399, Ft. Myers, FL 33911 

St. Lucie Users Group (SLUG), atin: Fred Brock, 
P.O. Box 1298, Ft, Pierce, FL. 33454 

Suncoast Bytes Commodore Computer Club, 
George R. Stoll, pres,, 3413 Scarsdale Trail, New 
Port Richey, FL'33552 

64 Society, 4071 Edgewater Dr., Orlando, FL 32804 

Commodore Stuff, Wade A. Guggino, 2260 17th St., 
Vero Beach, FL. 32960 

GEORGIA 

Commodore Craze International, 1284 Lynn Dr., 
Waycross, GA 31501 





), Larry Henderson, 
|, Ft. Payne, AL 35967 
, P.O, Box 249, Jackson- 
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HAWAIL 

Makai Commodore User Group (MCUG), P.O. Box 
6381, Honolulu, HI 96818 

IDAHO 

GEM-64, Ken Rosecrans, 407 N. DeClark, Emmett, 
ID 83617 

The Blackfoot Users Group (B.U.G.), Curtis Smith, 
pres, 4175, 1200 West, Pingree, ID 83262 

Best Western User Group (B.W.U.G), Greg Edgar, 
Rt. 2, Box 285, Rupert, ID $335 

ILLINOIS 

Tri-County Commodore Users Group, Kenneth 
Hall, pres., P.O. Box 364, Erie, IL. 612: 

IOWA 

The Commodore User's Group of C 
Voss, P.O. Box 743, Clinton, IA 5: 

Crawford County Commodore Users Group, 
Kenneth Haydon, 519 N, 19th St, Denison, 1A 
51442 

Towa City Commodore Users Group (ICCUG), 
Phyllis J. Stumbo, P.O, Box 2412, Iowa City, [A 
52244 

KANSAS 

Lawrence Commodore User's Group, .0. Box 
2204, Lawrence, KS 66045 

KENTUCKY 

Capital City Commodore Club (4*C), Te 
Rte. 8, Jones Lane, Frankfort, KY 40601 

Commodore Users Group of Madisonville 
(C.U.G.O.M), c/o Richard Byrd, P.O. Box 849, 
Madisonville, KY 42431 


LOUISIANA 

Lake ‘Charles 64 Users Group, P.O. Box 226, Lake 
Charles, LA 70602 

Commodore Users Group of Slidell (CUGS), Ed 
Burow, 1326 Sunset Dr,, Slidell, LA 70460 

MAINE 

COM-VICS, P.O, Box 1541, Auburn, ME 04210 

Your Commodore Users Group, Brunswick Chap 
ter, Peter O'Brien, 20 Columbia Ave., Brunswick, 
ME 04011 

Your Commodore Users Group, Mike Procise, P.O. 
Box 611, Westbrook, ME 04092 

MARYLAND 

Federation of Commodore User Societies, Inc. (FO: 
CUS), P.O, Box 153, Annapolis Junction, MD 
20701. (Note: This is a federation consisting of 15 
user groups in the VA/MD/DC area, not a club offer 
ing individual memberships) 
Southern MD Commodore User Group, Tom 
Helmke, 6800 Kilarny St,, Clinton, MD 20735 
Commodore Users Medium—Baltimore Area 
Computer Club (CUM-BACC), P.O. Box 479, 
Reisterstown, MD 21136 

MICHIGAN 

Battle Creek Commodore and VIC Enthusiasts, 
David McKay, 1299 5, 24th, Battle Creek, MI 
49015 

Columbia Commodore Computer Club (C%, Bar- 
bara Herron, 133 Ernest, Brooklyn, MI 49230 

Commodore Kids, Jason Shuster, 124 E, Maple St., 
Gladwin, MI 48624 

Commodore Users Group of Durand, MI, Marla 
Romine, sec., P.O, Box 188, Lennon, MI 48449 

0.C.U.G,, Box 342, Rockland, MI 49960 

MINNESOTA 

Commodore Bemidji User Group, Gerald Manley, 
Rt. 3, Box 392, Bemidji, MN 56601 

MISSISSIPPI 

Marion County 64 Users Group, Todd Pounds, P.O, 
Box 709, Columbia, MS 39429 

MISSOURI 

Carthage Commodore Computer Club, Gary Baird, 
P.O. Box 842, Carthage, MO 64836 

Commodore Hannibal Area Users Group 
(C.H.U.G), Lynn Uhl Baumgartner, 3400 Geron- 
imo, Hannibal, MO 63401 

Joplin Commodore Computer User Group, R.D. 
Connely, 422 5, Florida Ave., Joplin, MO 64801 

Association of Commodore User Groups (ACUG), 
Tony Ott, 10378 Coburg Lands, St. Louis, MO 
63137 

MONTANA 

Cascade County Users Group, Jerry Spurbeck, P.O. 
Box 739, Great Falls, MT 59403 
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NEBRASKA 

Platte Valley Commodore Users Group (PVCUG), 
Jim Parks, 1720 O St, Gering, NE 69341 

Lincoln Commodore Users Group, P.O. Box 30655, 
Lincoln, NE 68503, attn: Secretary 

NEVADA 

G.AT. EUN., P.O, Box 2155, Fallon, NV 89406 

Silver State Computer Users Group, P.O. Box 
81075, Las Vegas, NV 89180 

NEW JERSEY 

South Jersey Commodore User Group, Fred 
Herrmann, P.O, Box 4205, Cherry Hill, NJ ‘08034 

C-64 East Brunswick Users’ Group (C.E.B.U.G.), 
Brian Serle, 346 Ryders Ln., East Brunswick, NJ 
08816 

NJ Commodore 64/Computer Users Group, E: 
A. Garcia, 11 Cheerful PL, Highlands, Nj 077: 

L& L Commodore 64 User Group, Austin J. Levine, 
One Longstreet Rd., Manalapan, Nj 07726 

Commodore Software Exchange, Box 281, 
Pompton Plains, NJ 07444 

Jersey Shore Commodore Users Group, Bob Mc- 
Kinley, 89 Stratford Rd, Tinton Falls, NJ 07724 

NEW YORK 

Astoria Commodore Users Group, Brian Kuhn, 26- 
23 Crescent St., Astoria, NY 11102 

Bay Shore Users Group, Mowbray St. Cafe, 82 W. 
Main St. Bay Shore, NY 11706 

B.N.Y. Commodore User Group, Kyle Slovensky, 71 
Head of Neck Rd., Bellport, NY 11713 

Bay Shore/Brightwaters Commodore 64 Users 
Group, ¢/o Bay Shore/Brightwaters Public Li- 
brary, 5 South Country Rd., Brightwaters, NY 
11718 

Commodore & VIC Enthusiasts (CAVE), Bob Frost, 
P.O. Box 10, Holcomb, NY 14469 

Commodore Users Group of Massena (C.0.M. 
Massena Computer Center, Harte Haven 
Massena, NY 13662 

The New York City VIC-20/C-64 User Group 
(Citigroup), Joycelyn Woods/Allen Hobbs, 436 E. 
69th St.. New York, NY 10021 

Frisco’s Users Group, Frisco Baum, 41 Sunset Dr., 
Ossining, NY 10562 

Riverhead Commodore Club, Marge Lawrence, 330 
Court St,, Riverhead, NY 11901 

Commodore SIG, Computer Club of Rockland, Pe- 
ter Bellin, P.O, Box 233, Tallman, NY 10982 

Commodore User Group of Westchester, Ben 
Weyer, P.O. Box 1280, White Plains, NY 10602 

NORTH CAROLINA 

Unifour Commodore Users Group, P.O. Box 9324, 
Hickory, NC 28603-9324 

OHIO 

Bowling Green State University User Group, Chris 
Hunt, 519 Ridge #18, Bowling Green, OH 43402 

Commodore Preference Users Connection 
(C.P.U, Connection), Danni Hudak, P.O, Box 
42032, Brook Park, OH 44142 

The Cincinnati Commodore Computer Connec- 
tion, Ted Stalets, 816 Beecher St., Cincinnati, OH 
45206 

Southwestern Ohio Commodore Users Group 
(S.W.0.C.U.G,), P.O, Box 46644, Cincinnati, OH 
45246 

UCOM-64, 340 Tangeman University Center, Mail 
location 136, University of Cincinnati, Cincinnati, 
OH 45221 

Youngstown C-64 User's Group, Charles 
Longbottom, 209 N, Pearl, Columbiana, OH 
44408 

The South East Cleveland Commodore Crazies 
User Group (S.E.C.C.C.U.G)), Jim Hersh, P.O, Box 
37116, Maple Heights, OH 44137 

C.A.M. Area Users Group, Loren Hines, 334 Fair- 
view SE, North Canton, OH 44720 

OKLAHOMA 

Greater Oklahoma Commodore Club, P.O, Box 
96751, Oklahoma City, OK 73143 

Stillwater C-64 Users Group, 3124 N. Lincoln, Still- 
water, OK 74075 

OREGON 

Lane County C-64 User's Group, P.O. Box 11316, 
Eugene, OR 97440 

Springfield Commodore User's Group, 4400 
Franklin Ave., Ste. #1443, Eugene, OR 97403 

Springfield Commodore User's Group, Mark 
Joerger, 5324 B St., Springfield, OR 97478 
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PENNSYLVANIA 

Butler Commodore 64 User Group, P.O. Box 2408, 
Butler, PA 16001 

Environmental Protection Agency (E.P.A.) Com- 
modore Users Group, Edward H. Cohen, 1712 
Aiden Lair Rd., Dresher, PA 19025 (Note: Open to 
all federal government employees and their families) 

Blue Juniata Commodore Users-Group, Clifton H, 
Bell, Jr, 107 Washington Ave., Lewiston, PA 
17044 

P.C.U.C, C. Rhoads, 1338 Lynn Dr, Pottstown, PA 
19464 

RHODE ISLAND 

Burrillville Commodore Users Group, David 
Migneanlt, 28 Cherry Farm Rd., Harrisville, RI 
02859 

SOUTH CAROLINA 

Commodore Computer Club of Columbia, P.O. 
Box 2775, Cayce:West Columbia, SC 29171 

CAZZUG 64, 100 Oak Park Dr., Mauldin, SC 29662 


TENNESSEE 

Clarksville Commodore Users Group, P.O. Box 67, 
Clarksville, TN 37040 

Dungeons and Dragons User's Group, Glenn 
Halliburton, Rt. 1, Box 28A, Cumberland City, 
Erin, TN 37050 

Greeneville Computer Home Users Group, Harry 
J, Porter, Rte, 8, Box 138-T, Greeneville, TN 37743 

Tri-Cities Commodore Club, Vickie Davis, c/o 
Computer Corner, 114 Springbrook Dr., Johnson 
City, TN 37601 

TEXAS 

Abilene Cursor Control, Roman Reynolds, P.O. Box 
6261, Abilene, TX 79608 

El Paso Commodore User Group (EPCUG), Jesse 
Moore, 1736 Dean Martin Dr., El Paso, TX 79936 

Meadows User Group (MUG), David Whittington, 
11923 Scottsdale, Meadows, TX 77477 

Middand Commodore Users Group, Dave Taylor, 
P.O. Box 7355, Midland, TX 79708 

Commodore User's Group of Odessa (CUGO), 
Charlotte Holley, 2904 N. Alleghaney, Odessa, TX 
79764 

Society of Computer Owners and P.E.T, Enthu- 
siasts (SCOPE), Allen Yoder, P.O. Box 3095, 
Richardson, TX 75083 

Interface Computer Club, Christopher Bordovsky, 
pres,, 7532 Triple Oaks, San Antonio, TX 78263 

UTAH 

Cache Valley Commodore Users Group, Cecil 
Claspell, 380 W. 550 North #4, Logan, UT 84321 

Payson Area Commodore 64 Users Group (PAC 
64), Mark Shepherd, P.O, Box 525, Salem, UT 
84653 


VIRGINIA 

Dale City Commodore Users Group, Inc, P.O. Box 
2265, Dale City, VA 22193-0265 

Piedmont Users Group, David Gray, 135 Beverly 
Rd,, Danville, VA 24541 

Capitol Area Commodore Enthusiasts, c/o M, 
Yoder, 6512 Truman Ln., Falls Church, VA 22043, 

Commodore User Group, Douglas A. Mullins, Box 
625, Richlands, VA 24641 

Commodore 64 Computer Users Group of Rich- 
mond, Virginia, R.S. Armstrong, Jr., sec., P.O, Box 
9078, Richmond, VA 23225 

NASA Commodore Users Group, c/o Harris 
Hamilton, 713 York Warwick Dr., Yorktown, VA 
23692 


WASHINGTON 

Pacific Northwest Commodore Club, Jeff Jones, 
17214 3rd Ave. SE, Bothell, WA 98012 

Longview Commodore Users Group, Stephen 
Jones, 626 26th Ave., Longview, WA 98632 

Spokane Commodore Users Group, P.O. Box 
13201, Spokane, WA 99213-3201 

WEST VIRGINIA 

Elkins Area Commodore Users Group, Chris Les- 
ter, P.O, Box 2381, Elkins, WV 26241 

Lewisburg Commodore User Society, David L. 
Haynes, 17 Silo Sq,, Lewisburg, WV 24901 

WISCONSIN 

Milwaukee Area Commodore Enthusiasts 
(M.A.CE), P.O, Box 183, Greendale, WI 53129 

Fond du Lac Area Commodore Users Club, Dick 
Lendl, 1504 Shelley Ct., North Fond du Lac, WI 
54935 

@ 














software 
for your 
Commodore 64 





ere giving away Videotex software advice to math. Shop at home. Get the stock 

worth as much as $99.95 FREE! quotes and the sports scores. Do your banking in 
If you’re a Commodore 64 owner, it will let you bed. Test your knowledge of trivia and play elec- 
access your local information services such as tronic games. Bid in electronic auctions. Check 
VIEWTRON, GATEWAY, GRASSROOTS, restaurant prices, travel bargains and movie 
KEYCOM, COMPUSERVE or DOW JONES reviews. And much, much more. 
NEWS RETRIEVAL SERVICE* It’s a whole new way of getting more out of your 

Just think what you'll be able to do from your valuable time, and it starts out FREE. To receive 

own Commodore 64! Get everything from expert your FREE software, mail this coupon today. 
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Mail to: Addison Systems Inc. 
2210 Wilshire Blvd., 
Suite 497 
Santa Monica, CA 90403 
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reviews 


F-15 Strike Eagle 


One of the problems with flight simu- 
lators as a whole is that, no matter how 
good they are, they tend to be unexcit- 
ing, This is not their fault; it simply re- 
flects the fact that nothing much 
happens in a simulated airplane. 
Microprose Software's F-15 Strike Eagle 
for the Commodore 64 solves this prob- 
lem by putting you in the cockpit of an 
F-15 jet fighter, then threatening your 
life with enemy aircraft, radar-homing 
missiles, SAM (surface-to-air missile) 
sites, and the ever-present danger of 
crashing while trying to avoid them all. 


range missile (1/2- to 10-mile dis- 
tance), and M with a medium-range 
missile (10-40 miles). There is even a 
bail-out option if the mission goes 
badly, with a message telling you how 
you fared after landing. 

F-15 Strike Eagle contains seven 
missions of increasing difficulty. In 
“Libya 1981,” the introductory mis- 
sion, you bomb several SAM sites, air- 
fields, and a command center, all the 
while avoiding a MiG-21, a MiG-23, 
and an Su-22 with a heat-seeking mis- 
sile. Mission 3, “Haiphong 1972,” is a 
night bombing mission against a SAM 
site, this time against the threat of 
radar-homing missiles. Mission 7, the 
most demanding scenario, asks you to 
bomb several targets while evading a 
MiG-23, an Su-22, and several high- 
performance radar-homing and heat- 
seeking enemy missiles, All the 
scenarios are extremely challenging, 
and your skill as a pilot must increase if 





you are to succeed at each successive 
mission. 

F-15 Strike Eagle is an excellent 
package for anyone interested in learn- 
ing about flying a modern fighter under 
the threat of being shot down any num- 
ber of ways. More intense than a 
straight flight simulator, it combines 
the basic realism of a flight simulator 
with the tension of a good arcade game. 
1 highly recommend it for anyone with 
an interest in either. 

—Neil Randall 


Microprose Software 
10616 Beaver Dam Rd. 
Hunt Valley, MD 21030 
$34.95 (disk) 








Tutor tony 





The screen display is a reali 
view from the cockpit. Pitch lines indi- 
cate your rate of climb or dive, as well 
as your degree of turn. Fine-lined 
grids—"‘reticles’”—show the location of 
enemy aircraft and also allow you to set 
up bombing runs. Other indicators on 
the many-featured display include alti- 
meters, heading indicators, a missile- 
designation box, and a mach indicator, 
to name just a few. As in any detailed 
flight simulator, flying the aircraft takes 
practice, but in F-15 Strike Eagle flight is 
not frustratingly complex. More impor- 
tantly, it seems to feel just right. 

The rest of the controls take more 
time to master, but this is as it should be 
since these are the heart of the program. 
Flight is handled by joystick, but weap- 
ons and speed controls are sensibly laid 
out on the keyboard. Pressing B arms 
your F-15 for a bombing run (a real 
challenge, by the way); E activates elec- 
tronic countermeasures to jam and de- 
coy radar-homing missiles; F releases a 
flare, which can fool a heat-seeking 
missile; S arms your craft with a short- 
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On-Court Tennis 


Tennis fans can now serve, volley, lob, 
and even double fault in this fast-paced 
computer game for the Commodore 64, 
On-Court Tennis from Gamestar. You'll 
be surprised at the flexibility and 
subtleties of this colorful and challeng- 
ing program. 


On-Court Tennis is not an easy 
game to master at first. The joystick 
controls such a variety of shots that 
you'll need to play a few games before 
you begin to feel comfortable with the 
action. Once you learn the moves, how- 
ever, you'll find them easy to use and 
remember. You'll also discover that this 
is one of the most enjoyable games in 
your computer collection. As with most 
sports simulations, game play is more 
fun against a human opponent. But On- 
Court Tennis is better than many pro- 
grams of this type in letting you have a 
fair chance against the computer. The 
program supports two-player and 
human-computer choices. You can 
even pick up pointers watching two 
computer-directed players battle it out. 


GaneSTaR TeMNrs ctus | 
touar 


eenten 


Your options for different types of 
players, shots, and strategies are exten- 
sive. Choose from among four different 
players—who bear strong resem- 
blances in names and playing styles to 
real-life pros Bjorn, John, Jimmy, and 
Ivan. Play on a fast grass court, a 
predictable hard surface, or the slower 
clay court. Move your shots around, fire 
a hard serve down the line, and hit 
slices, flat shots, topspins, lobs, drop 
shots, and smashes. All of these vari- 
ations are accomplished with joystick 
movements and the fire button. 


Your computer controls the move- 
ments of both players relative to the po- 
sition of the ball. But you're in charge of 
all the shots. Timing is crucial as you 
watch the movement of the ball and its 
changing shadow. Appropriate sound 
effects and impressive three- 
dimensional graphics add to the game 
as well. Another nice touch is the way 
in which your computer opponent will 
vary its playing level to give you a good 
match, If you’re weak, your opponent 











Only NRI teaches you to 
service and repair all 

computers as you build your 
own 16-bit IBM compatible 















As com- 
puters move 
Into offices and 
homes by the 
millions, the de- 
for trained 



























technicians surges for- 
ward. The Department of 
Labor estimates that com- 
puter service jobs will actually 
double in the next ten yea 
a faster growth than any other 
‘occupation, 
Total System Training 
Asan NRI student, you'll get 
total hands-on training as you 
actually build your own 
‘Sanyo MBC-550-2 ~ 
computer from the 
keyboard up. Only a 
person who knows all 
the underlying fun- 
damentals can cope 
with all the significant 
brands of computers. 
And as an NRI 













minute combination 
of theory and practical 
experience that will 
Jead you to success on 
the job. 

‘You leam at your own convenience, 
in your own home, at your own comfort: 
able pace. Without classroom pressures, 
without rigid night-school schedules, without 
wasted time. Your own personal NRI instructor 
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will give you a total mastery of computer operations 
and servicing techniques, You'll do programming 
in BASIC language. You'll prepare interfaces for 








and NRI's complete technical staff will answer peripherals such as printers and joysticks, Using. 
your questions, give you guidance and special utility programs, you'll check out 8088 functioning. 
help whenever you may need it. And the entire system, including all the bundled 


The Exciting Sanyo MBC-550-2— 
Yours To Keep 

Critics hail the new Sanyo as the “most intrigue 
ing’ ofall the IBM-PC compatible computers. It uses 
the same 8088 microprocessor as the IBV-PC and 
the MS/DOS operating system. So, you'll be able to 
choose thousands of off-the-shelf software programs 
to nun on your completed Sanyo. 


software and extensive data manuals, is yours to 
keep as part of your training. 
100-Page Free Catalog Tells More 
Send the coupon today for NRI's big 100-page 
color catalog, which gives you all the facts about NRI 
training in Microcomputers, Robotics, Data Com- 
munications, TV/Video/ Audio Servicing, and other 
growing high-tech career fields. Ifthe coupon is 
‘As you build the Sanyo from the keyboard up, missing write to NRI at 3939 Wisconsin Ave,, NW, 
you'll perform demonstrations and experiments that Washington, DC 20016 . 


IBM is a Registered Trademark of International Business Machines Corporation. 

PPM .c.0015 
McGraw-Hill Continuing Education Center 
3939 Wisconsin Avenue, Washington, DC 20016 
Wo'll give you tomorrow. 
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If you’re strong, the computer will com- 
pensate there as well. 

With On-Court Tennis, Gamestar 
has created a first-rate sports simulation 
with a balanced mixture of action and 
strategy—a combination that guar- 


antees many hours of enjoyment. 
—Kevin Martin 

Gamestar, Inc. 

1302 State St 


Santa Barbara, CA 93101 
$29.95 (disk) 





Schools today, at least those which use 
computers, are filled with instructive 
software, But there seems to be a sense 
that students will find it delightful sim- 
ply because it appears on a computer. 
This just isn’t so, as anyone with a 
school-aged child knows; thankfully, 
teachers and software designers alike 
are beginning to realize it as well. 





Cave of the Word Wizard is one pro- 
gram which delights as it instructs. The 
game is a romp through several levels 
of a dungeon-like cave, with ladders to 
climb up and creatures to avoid. Your 
goal is to find four crystals and get back 
Out of the cave. You begin the game by 
choosing a character (either Becky or 
Mark) and one of four levels of diffi- 
culty, then you move through the cave 
by jumping over holes, rocks, and such 
things as spiders and snakes. If you trip 
over a rock or allow a creature to touch 
you, you use up a bandage. You start 
the game with five bandages, and re- 
ceive one periodically if you spell the 
words correctly. If you run out of ban- 
dages, the game is over. The game 
plays much like Pitfall, except that it’s 
easy enough for children as young as 
kindergarten age. The graphics are 
colorful and entertaining. 

No matter how fun the game itself 
is, though, the spelling portion is even 
more enjoyable. This game talks to you! 
As you walk and jump through the 
cave, every so often the Word Wizard 
will appear out of nowhere, freezing 
you in place and commanding you to 
spell a word. He booms out his request 
in a deep, remarkably clear voice, and 
you must spell the word (by typing it). 
If you didn’t hear the word, he repeats 
it for you. If you spell it correctly, he re- 
sponds with “Fantastic,” “Keep up the 
good work,” or one of several other 
phrases, and his voice even sounds 
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Cave of the Word Wizard 


enthusiastic. If you're wrong, he gently 
informs you of the error, displays the 
word on the screen, and asks you to 
type it in before continuing. There's 
nothing at all frustrating about the 
procedure, and next time you see the 
word you're likely to spell it correctly. 
In game terms, correct spellings give 
you extra bandages, while incorrect 
spellings consume energy in your 
flashlight. 

Since Cave of the Word Wizard is an 
educational product, it must be judged 
for its ability to educate. I can attest to 
its excellence in three ways. First, my 
seven-year old daughter plays it fre- 
quently, and she almost never spells 


the same word incorrectly twice. Sec- 


B. C. Il: Grog’s Revenge 


With the notable exception of only a 
few movies, sequels are seldom as good 
as the original—and usually they're not 
even close. The same holds true with 
software sequels, again with certain 
exceptions and those usually in the fan- 
tasy and adventure game genre. How- 
ever, on rare occasions, a truly good 
arcade game is succeeded by an equally 
good sequel. Sierra On-Line has pro- 
vided just such an occasion with the re- 
lease of B. C. II: Grog’s Revenge. 

B. C.’s Quest for Tires was one of 
the first graphically exceptional games 
that didn’t rely solely on graphics to 
carry it, having a simple but challeng- 
ing game format to go along with its 
cartoon-like animation. Thor, the hero 
of Quest for Tires, has returned in B. C. 
II: Grog’s Revenge and is now searching 
not for Sweet Chick, but for the mean- 
ing of life. An easy task, considering 
that the only things standing in his way 
are wheel-munching Tiredactyls, greedy 
attendants collecting tolls, dangerous 
caves, twisting mountain paths—and 
the clam-loving monster, Grog. 

Grog’s Revenge brings with it not 
only the central character of its prede- 
cessor, but also the delightful graphics 
and animation that made the first B. C. 
game so notable. Further similarities 
exist in that the game presents the 
player with a single objective that is, at 
first, deceptively simple. You must 
maneuver Thor, transported by his uni- 
wheeled vehicle, up three multileveled 











ond, when she showed it to her class, 
her teacher immediately bought a copy 
for the school, and currently all the 
grades are using it. 

Third, I decided late one night to 
try my hand at the game’s most difficult 
word list (there are ten lists), confident 
that | would have no problems since 
spelling has always come easily to me. 
The Wizard led off with three words I 
handled easily (although ‘‘supercil- 
ious” caused me a moment of thought), 
then downed me on three straight 
wrong answers. (Naturally, I de- 
nounced the game as ridiculous, claim- 
ing that no one really cares if 
“inoculate” only has one “n.”) Cave of 
the Word Wizard is sensational if only 
for the Wizard himself. Many educa- 
tional products hide the lesson inside 
the game; Timeworks has managed to 
make the student play the game in or- 
der to get to the lesson. 

—Neil Randall 





Timeworks, Inc, 
444 Lake Cook Rd. 
Deerfield, IL 60015 
$24.95 (disk) @ 





mountains, collecting clams (which are 
used to pay the tolls required to ad- 
vance to the next mountain) as you go. 
However, it just isn’t as simple as it ap- 
pears. Plenty of sound strategy is re- 
quired in order to outwit Grog and get 
him off your track, and an equal 
amount of hand-eye coordination is 
necessary to manipulate Thor over, un- 
der, and around the various obstacles 
that litter the mountain trails and fill 
the dark caves, 

To reveal too much about the little 
delights that add to both the play and 
the aesthetics of Grog’s Revenge would 
be to deprive the buyer of some of the 
enjoyment of playing a game for the 
first time. Suffice it to say that Grog’s 
Revenge leaves the gamer hoping for a 
sequel to the sequel, 





—James Trunzo 


Sierra On-Line, Inc. 
Coarsegold, CA 93614 
$34.95 (disk) @ 








Legionnaire 


Chris Crawford's Legionnaire for the 
Commodore 64 is, as computer war 
games go, very unusual. First, it is a 
realtime simulation. Second, it takes 
less than 20 minutes to play. Third, its 
subject is tactical warfare in the age of 
Caesar. Realtime map-oriented war 
games are rare in themselves, 20- 
minute wargames even more so, and 
tactical war games from the Roman era 
practically unheard of. 


Despite its uncommon features, 
or perhaps because of them, Legionnaire 
is a very good game. You begin by 
specifying how many legions you wish 
to control (between one and ten), and 
then select the two barbarian tribes 
who will oppose you. The tribes are fic- 
tional, but each possesses characteris- 
tics appropriate to the historical era. 
The computer then puts your legions 
and their enemies on the map. Using 
only the joystick, you scroll around the 
map (it occupies several screens in to- 
tal) and formulate an overall plan for 
the battle. The two enemy tribes begin 
separated, with your legions some- 
where between. 


Trees and multilevel slopes are 
the only terrain features, but they are as 
vital to your defense as they were 
historically. You must make full use of 
the height advantage offered by the 
slopes, and the strategic location of the 
trees. As the battle progresses, you 
must try to keep your legions in combat 
formation, with infantry in the middle 
and cavalry—the main offensive 
force—on the flanks, You represent the 
legion commanded by Caesar, and if 
Caesar dies, the game is over. Other- 
wise, the game ends when all the units 
on one side are eliminated. 


As Caesar, you command your le- 
gions to march. All play is joystick-con- 
trolled and, after a few practice games, 
very fluid, Using the joystick, you “pick 
up” a legion with the on-screen cursor, 
then plot its movement up to eight 
“spaces.” Quickly repeating this for 
each legion, you then scroll around the 
map watching the battle develop. After 
each legion reaches its ordered destina- 
tion, it will stop and await further or- 
ders. Frequently it will be necessary to 
revise or cancel orders as the barbarian 
strategy unfolds, or as the legions be- 
come fatigued and losses mount. En- 
emy units automatically fight each 
other when they try to enter the same 
“square.” 

The manual is well-written and in- 
formative, with tactical hints, descrip- 
tions of the strengths and weaknesses 
of each tribe, and historical notes. The 
program is true to its objective of a fast- 
moving game which forces you to 
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combine your own strategic thinking 
with historical legionary tactics, With 
terrain, battle formations, and the enor- 
mous effects of fatigue as your main 
considerations, Legionnaire is a true 
learning experience. And with its short 
playing time and smooth action, it is 


highly entertaining as well. 
—Neil Randall 


Microcomputer Games 

The Avalon Hill Game Company 
4517 Hartford Rd. 

Baltimore, MD 21214 

$25 (cassette), $30 (disk) 








The ELF System 


The Codewriter Corporation (formerly 
Dynatech) literally made its name with 
its product called Codewriter. That mas- 
ter product has now spawned smaller 
products, each designed for a specific 
type of program. We'll look at three of 
them here, each of which allows you to 
design a program without a knowledge 
of programming. After you've designed 
it, the master program generates your 
specific program, which you can then 
load and run independently. 

Dialog allows you to design inter- 
active screens, to carry on a dialog with 
the reader. Primarily, it’s useful for 
creating educational programs geared 
towards a specific class or a particular 
student. In addition, though, it can be 
used to create any type of program in 
which the reader must respond, such as 
quizzes and trivia-type games. In fact, 
to test the program, I redesigned Trivial 
Pursuit so the reader could choose cate- 
gories without rolling dice and would 
score a varying number of points 
depending on the difficulty of the 
question, 

Each screen either instructs the 
reader to do something or asks a ques- 
tion. The questions are of three types: 
true/false, multiple choice, or fill-in- 
the-blanks. When you create a dialog, 
you instruct the program how to re- 
spond to the reader’s answers, For in- 
stance, in a true/false question, you 
may want something different to hap- 
pen depending on which answer the 
reader chose. Dialog lets you do that 
and much more. 

Each dialog you design consists of 
an unlimited number of chapters, Each 
chapter contains 15 pages, and each 
page has two parts, the parameters 
page and the text page. On the text page 
you write whatever the user is to 
read—instructions or questions. After 
filling in the chapter's 15 pages (you 
don’t have to use all 15), you save that 
chapter and design the next (if needed), 
By linking chapters, you can create a di- 
aiog of unlimited size. 

The parameters page is the heart of 
Dialog. Here you tell the program what 
you want it to do. You choose the type 
of page you are designing (true/false, 
etc.), how many points (if any) you 
want awarded for a correct answer and 
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Adventure Writer, Dialog, And 


subtracted for a wrong answer, the 
messages which will accompany each 
answer, and even prompt and help 
messages to guide the reader along. 
More importantly, you guide the pro- 
gram from one page to another. For ex- 
ample, you might specify that a correct 
answer will send the reader to page 14, 
while an incorrect answer will send him 
to page 15 (perhaps a less difficult new 
question). Dialog also allows you to 
send the reader from the current chap- 
ter to a different one. In this way, you 
can tailor the quiz to the reader's in- 
dividual needs, or, if you are creating a 
game, to his wants, 

After you've created the dialog, 
you save it in a three-step process. First, 
you save the dialog. Next, you load the 
boot program from the master disk and 
save it to your new disk. Last, you load 
the BASIC compiler from the master 
and save it to your disk. When this is 
done, you can load and run your new, 
compiled program without the master. 

The Dialog manual is well-written 
and instructive. It guides you step-by- 
step through a complete dialog, then 
gives somewhat more technical details 
on each of the program’s functions, Al- 
though there is nothing difficult about 
Dialog, it is open-minded enough to 
allow a great number of different types 
of applications. Teachers in particular 
will find it useful, Of all the Codewriter 
programs reviewed here, Dialog is the 
easiest to use, and this only adds to its 
overall excellence. 

The ELF System is less easy to use, 
but it compensates with greater 
versatility, Its purpose is to let you de- 
sign a program which, as the manual 
suggests, “only you and maybe one 
other person in Alaska” would ever 
need, It resembles a spreadsheet more 
than a database (in fact it does not pro- 
vide the cross-referencing feature of 
databases), but it is more simply an 
open-ended data manipulator. The ex- 
cellent manual contains a tutorial in 
which you set up an expense report 
program, the type of program it’s de- 
signed for. It would be equally ap- 
plicable for small sales reports and as a 
small grades program for teachers. 

The ELF System allows you to de- 
sign the screen exactly as you want it. 





You can choose to work within a paging 
format or a scrolling format. Paging 
gives you eight separate screens to 
work with, each 40 columns by 22 
rows, You use paging when the pro- 
gram demands several sub-sections, 
For example, the expense report has 
one page for each type of expense 
(travel expenses, miscellaneous ex- 
penses, mileage report). A grades pro- 
gram might have a separate page for 
each assignment. Scrolling allows one 
large report, 80 by 88 columns. It’s used 
for a program needing only one large 
section rather than several sub- 
sections. 

Designing a screen will be familiar 
to anyone who’s used a database or 
spreadsheet, but experience is not nec- 
essary. Each field is delineated by a 
symbol depending on its type. A dollar 
sign indicates a money field, a number 
sign a numeric field, and an “@" an 
open field. These symbols let the pro- 
gram know how you want it to manipu- 
late the information in the fields, An 
ELF program can handle up to 700 
fields, 250 which you enter from the 
keyboard, 200 in which the computer 
does the calculations, and 250 label and 
repeat fields. 

The program's sophistication 
shows when it's time to manipulate 
information. You print out the screens 
you've designed (a printer is recom- 
mended but not essential), and each 
field is numbered. Then you command 
the program to perform mathematical 
calculations by combining fields in sev- 
eral ways. There is even an open win- 
dow to BASIC for those who prefer to 
work on the calculations directly, This 
part of the design is the most difficult, 
but using it properly will give you a 
great deal of control over your 
programs. 

‘Once the program is complete, 
save it to an applications disk. Doing so 
is easy, and it’s great fun watching the 
code flash by on the screen, At such 
moments you can easily justify spend- 
ing the money on The ELF System sim- 
ply by figuring out how long it would 
have taken you to write the code. 

ELF programs are saved in BASIC. 
Unlike Dialog, The ELF System does not 
come with a BASIC compiler, but if you 
use ELF frequently, you'll probably 
want one to speed up execution. Hav- 
ing the program saved in BASIC is an 
advantage for anyone familiar with 
programming, though, as you can alter 
the program even further to suit your 
needs. For a nonprogrammer, The ELF 
System does the work for you; for a pro- 
grammer, it will eliminate much of the 
tedium of screen and field creation. 


Different from both of these prod- 
ucts, but also a program generator, is 
Adventure Writer. This product is 











“I don’t have enough time orspace to listall the good points!” - Noland Brown, MIDNITE SOFTWARE GAZETTE 
“This disk is fantastic!” -- Tom Lynch, THE USERS PORT 


“Why all the enthusiasm? Because COMAL is a composite of the best features of the most popular 
programming languages... the familiarity of BASIC commands with the structural programming 
environment of Pascal and the turtle graphics of Logo.” - Mark Brown, INFO 64 


“COMAL was just what I was looking for.” -- Colin Thompson, RUN 





Seeing is Believing. Take a look at what COMAL has to offer: 
the complete COMAL 0.14 System for Commodore 64™ includes the 
Tutorial Disk* (teaches you the fundamentals of COMAL), plus 
the Auto-Run DEMO Disk* (demonstrates 26 COMAL programs 
including games, graphics, sprites and sounds), 
all for just $7.00! 
You can add the reference book, COMAL from A to Z, 
for just $4.00 more. 
$7 or he ee you're a winner! 











“Everybody who gets it, likes it! (I'll quarantee it.)" - Len Lindsay, President, COMAL Users Group 





Call TOLL-FREE: 1-800-356-5324 ext. 1307 
VISA or MasterCard Orders ONLY. 
Questions and information must call our 
Info Line: 608-222-4432. 
=> All orders prepaid only - no C.0.D. 





Send check or money order in US Dollars to: 


j a, COMAL USERS GROUP, U.S.A., LIMITED 


: OS 6041 Monona Drive, #104, Madison, WI 53716 
x es 8 phone: (608) 222-4432 


*Programs will come on 2 disks or 1 double sided disk ~ each disk includes COMAL 
Commodore 64 is a trademark of Commodore Electronics 


designed for those who enjoy text ad- 
ventures (such as Infocom’s) but want 
to write their own. Where Dialog has 
the educator in mind, and The ELF Sys- 
tem the home computerist, Adventure 
Writer appeals to the storyteller and 
puzzle-maker. In its extensive range of 
special features, Adventure Writer is the 
most impressive of the three products. 

To create an adventure, you con- 
struct a database and then tell the com- 
puter how to control it. The database 
contains the descriptions of the loca- 
tions and the objects, as well as the 
game’s vocabulary and the messages 
certain actions will invoke. Nicely, all 
of this is left up to you. 

You have complete control of eight 
separate “tables” (or sections) within 
the database. One allows you to de- 
scribe each location (each with up to a 
screen of information). In another you 
describe each object, again allowing 
extensive description, A third is used to 
establish where each object begins the 
game (objects can be picked up and car- 
tied, if you wish). In the Vocabulary 
Text Table, you insert the words you 
want available to the player; the master 
program provides a good core of 
vocabulary, but you will want to add to 
the list. The Message Text Table allows 
you to create the messages which will 
follow certain actions, and the Move- 
ment Table determines how the loca- 
tions are interconnected. For example, 
there may be three exits from the living 
room (East, West, South) but only one 
from the torture chamber. 

Two other tables, by far the most 
difficult to create, form the core of your 
adventure. The Vocabulary Action Ta- 
ble provides the player with the ability 
to play the game. It controls what hap- 
pens when the player enters a com- 
mand. For example, INVENTORY (or a 
synonym) will list what the player is 
carrying, TAKE THE FLASHLIGHT 
will cause the object (flashlight) to be- 
come part of the inventory, etc. The 
program works on the principle of a 
two-word command (e.g., GET 
FLASHLIGHT), but the player may 
type as many words as he wishes; 
words not in the vocabulary are simply 
ignored. 

The Status Table tells the computer 
how to handle the player's actions. 
Each time the player enters a com- 
mand, the computer checks the Status 
Table to see if anything is supposed to 
happen. For example, you may want 
night to fall on turn 15, or the player to 
feel the effects of a poison 31 turns after 
eating the food and die 10 turns later 
unless he finds the antidote, etc. The 
Status Table is extremely flexible, and it 
lets you control the adventure entirely. 

Adventure Writer will allow you to 
create 252 location descriptions, 255 
object descriptions, 255 messages, and 
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254 entirely separate vocabulary entries 
(a word and all its synonyms count as 
one word only). The adventures are 
written in machine language, so they 
play very quickly. 

Once again, an excellent manual 
guides you through the system by way 
of a tutorial, which helps you create a 
mini-adventure, then takes you back 
into it to add a good deal of sophistica- 
tion. Once finished, you should be 
ready to try one on your own. 

There is not nearly enough space 
here to mention all the extra features in 
Adventure Writer. Suffice it to say that 
you will be able to create some very 
complex adventures. Your parser will 
never be as sophisticated as some 
commercially available text adventures, 
but you can make up for that if you can 
write a good story. The story, after all, 
not the game system, is what adven- 
tures are all about. 

Codewriter has provided a valu- 
able service to those interested in de- 
signing their own programs. If you're a 
programmer, you can use them to elim- 
inate some of the drudgery of design- 
ing, then modify them to suit you. But 
for nonprogrammers they're even more 
valuable. The Codewriter products 
make the computer work for us, rather 
than the other way around. If you're 
creative in any way, you can now use 
your computer to prove it. 

—Neil Randall 


Codewriter Corporation 
5605 West Howard 
Niles, IL 60648 

$40 each (disk) 





Chipwits 


Combining educational value in an en- 
tertaining program is a good way to de- 
scribe Chipwits from Epyx. This 
“edutainment” package is a game in 
which you program on-screen robots to 
explore rooms and mazes filled with 
different kinds of objects. As you train 
the robots to “think” for themselves, 
you can sharpen your analytical skills 
and learn some of the basics of com- 
puter programming. 

Chipwits lets you create, edit, test, 
and delete your robots, debugging 
them as you go along. There are also 
eight adventure games included which 
you can play with the robots you've put 
together. Your options are presented 
through pull-down menus, and selec- 
tions are made either by joystick or a 
Koala Pad. 

In each of the mazes, your Chip- 
wits must avoid colliding with walls 
and stepping on bombs while searching 
for food to keep energy levels high. 
Every Chipwit needs a program, or set 
of instructions, to tell it what to do. A 
Chipwit’s program consists of a set of 








40 “chips” on its main panel (a five-by- 
eight matrix) and nine subpanels, The 
instruction chips are executed in an or- 
der based on their position and connec- 
tions. Program control is passed from 
one chip to another through “output 
wires.” 

The various actions to be carried 
out by a Chipwit are represented by 
symbolic pictures, or what Epyx calls 
IBOL (Icon-Based Operating Lan- 
guage). A Chipwit can only follow the 
program created for it, but that set of in- 
structions may be quite sophisticated. 
Different operators such as Look, 
Smell, and Feel are used to program 
each Chipwit, and these operators are 
used in conjunction with any of ten dif- 
ferent parameters. A true-false test is 
used with the operators to make 
decisions, 





For example, suppose you program 
the Chipwit to test for an oil can (one of 
its favorite snacks). If the robot detects 
an oil can, a branching function could 
be used to lead the Chipwit to pick it up 
and eat it. If the original test (to find an 
oil can) proves false, your next instruc 
tion might be to look for a bomb and 
destroy it before moving to the next 
square in the game grid. 

A Chipwit may also be pro- 
grammed to move or turn in any direc- 
tion, sing, go to a subroutine, choose a 
random direction, and other options. 
There is an advanced programming fea- 
ture which allows a Chipwit to remem- 
ber numbers, moves, and objects. 

Chipwits is an excellent game, both 
in concept and implementation. The 
use of pull-down menus and icons 
makes the human-computer interface 
unobtrusive. There are a number of fea- 
tures that combine to make learning the 
basics of programming effective and 
fun, especially for children accompa- 
nied by adult supervision or receiving 
programming instruction. Although 
Epyx doesn’t offer an intended age 
range, it seems to me that Chipwits 
might be a little too complex for chil- 
dren under ten. 

—Arthur Leyenberger 
Epyx, Inc. 
1043 Kiel Court 
Sunnyvale, CA 94089 
$29.95 (disk) 











als© worth noting 


White Lightning 

White Lightning is a Forth-based devel- 
opment package for the Commodore 
64. Although Forth is a low-level lan- 
guage, in some ways closer to machine 
language than to BASIC, it is extensible, 
meaning programmers can create their 
own new high-level commands. In ef- 
fect, you build up your own customized 
language. In addition to the standard 
Forth vocabulary, Oasis has included a 
high-level graphics development sys- 
tem which includes over 300 new com- 
mands, offering much of the speed and 
power of machine language with less 
effort, 

The documentation is excellent if 
you are an experienced Forth program- 
mer, Newcomers to Forth might find it 
a bit technical (there are several good 
introductory books available for those 
just starting out with Forth). The soft- 
ware developed with White Lightning 
can be used—and sold—independent 
of this development system. Oasis Soft- 
ware also markets BASIC Lightning, a 
BASIC-level graphics development sys- 
tem, and Machine Lightning, an ad- 
vanced machine language system. Each 
package comes with software on disk, a 
manual, and a user supplement of ex- 
tended explanations and examples. All 
three are recommended for the serious 
programmer. 

Oasis Software 

377 Oyster Point Blvd. 

Unit 15 

San Francisco, CA 94080 
White Lightning —$49.95 
BASIC Lightning —$39.95 
Machine Lightning—$84.95 


Racing Destruction Set 
Customize your Baja bugs, dirt bikes, 
sports cars, and six other exotic vehi- 
cles—even lunar rovers. Build any race 
track with any combination of obsta- 
cles. Or, use one of the 50 built-in 
tracks. Change the gravity of the planet 
on which you're racing. Add jumps, 
forks, crossovers. In the “destruction” 
mode, you can carry armor, drop land 
mines, and leave oil slicks. The options 
and variables in Racing Destruction Set 
are amazing, making this as complete 
and enjoyable a computer racing game 
as you could want. Nothing has been 
left out. Play against the computer or 
another racer. Joystick required. 
Electronic Arts 

2755 Campus Dr. 


San Mateo, CA 94403 
$32,95 








Six-Gun Shootout 

It’s your gunslingers against the other 
player's (or computer's) in this strategy 
game based on the Old West frontier of 
the late 1800s. An abundance of scenar- 
ios—the OK Corral, Billy the Kid, plus 
eight more—and the ability to build 
your own characters’ capabilities make 
this a game you can play for a long time 
without repeating yourself, Six-Gun 
Shootout is as violent as the Old West, 
but the emphasis is on your strategic 
planning. Arm your men and set up the 
various gunfights, battles, and cam- 
paigns. Combat rules in the game are 
realistic—only six bullets in a six-shooter, 
for example, Documentation is excel- 
lent, although it may be a bit complex 
for youngsters. On the other hand, you 
can enjoy this game without a complete 
knowledge of all the rules. 








Strategic Simulations, Inc 

883 Stierlin Rd. 

Building A-200 

Mountain View, CA 94043-1983 
$39.95 


Wishbringer 

This is an excellent all-text adventure 
game for beginners, providing an easy 
tiation into the world of adventuring 
without presenting insurmountable ob- 
stacles from the start. Each puzzle be- 
comes progressively more difficult, but 
no illogical solutions are employed. The 
game may be played at two difficulty 
levels—using magic as an aid in solving 
the mystery, or deciphering the puzzles 
using logic and deduction. Wishbringer 
includes the usual clear, concise Info- 
com text. A very enjoyable game. 
Infocom, Inc. 

55 Wheeler St. 

Cambridge, MA 02138 

$34.95 (disk) 


Competition Karate 

This action/role-playing game allows 
any number of players to create teams 
of martial arts fighters and develop in- 
dividual fighters as they train in the 
dojo, engage in sparring matches, and 
ultimately face the challenge of real 
combat in the arena.-It can be played 
against another opponent or against the 
computer. Individual players begin as 
awkward white belts and through 
training and competitive matches im- 
prove their abilities until they are 
awarded the legendary red belt. The 
heart of Competition Karate is, of course, 
the tournament combat. Here fighters 
compete against opponents in similar 











belt classes, throwing kicks and punch- 
es through the use of paddles or joy- 
sticks (recent versions allow keyboard 
input). 

Competition Karate is a challenging 
and enjoyable product and one that will 
be especially appreciated by those with 
an interest in the martial arts. 
Motivated Software Inc, 

80 Rancho Dr. 
Mill Valley, CA 94941 
$34.95 (disk) 


Summer Games II 

Following on the heels of its successful 
Summer Games arcade-style action 
package, Epyx has released a sequel 
every bit as good as the original. Eight 
new Olympic events are included: row- 
ing, triple jump, javelin, high jump, 
fencing, cycling, kayaking, and eques- 
trian contests. You can play up to seven 
opponents in each event, or play 
against the computer, The crowd 
noises, smooth and colorful graphics, 
and carefully designed joystick control 
help make this an exceptionally good 
action game. Contests in Summer Games 
Il are slightly less difficult than in its 
predecessor, but playability, animation, 
and graphics are improved throughout, 
Epyx, Inc 

1043 Kiel Ct. 

Sunnyvale, CA 94089 

$39.95 


Tales Of Me 

With Tales of Me, any child—with occa- 
sional help from an adult—can write, 
edit, print, illustrate, and bind a com- 
plete personalized hardcover book. The 
finished product contains facts about a 
child and his or her friends, family, 
pets, and adventures. And what you 
end up with are very entertaining sto- 
ries which almost any child—ages 
7-14—will enjoy. Tales of Me consists 
of four chapters, with the author choos- 
ing who the hero/heroine will be, Not 
only is the program fun for children, it 
also reinforces reading, spelling, and 
writing skills. 

Other programs in Woodbury’s 
PlayWriter series include Adventures in 
Space, Castles and Creatures, and Mys- 
tery!. Each set only contains enough 
material to make one book. If the user 
wants to create more, a refill kit ($9.95) 
can be purchased from Woodbury. (In 
conjunction with Grolier Electronic 
Publishing, Woodbury will sponsor a 
national writing contest this fall with 
entry blanks handled through schools 
and retailers.) 

Woodbury Software 

127 White Oak Lane 

CN1001 Old Bridge, NJ 08857 

$39.95 (disk) @ 
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By now, many of you have seen or 
even own a Commodore 128 (for a 
hands-on review, see “Inside the 
128,” in the June 1985 issue). This 
successor to the 64 incorporates a 
64 mode that runs all 64 software, 
and can use virtually all 64 hard- 
ware and peripherals, making it 
easy to upgrade to the 128, and giv- 
ing first-time Commodore owners 
instant access to the large 64 soft- 
ware library. 

To use the expanded keyboard, 
full 128K memory, and RGB color 
80 columns, you need to run in the 
true 128 mode. The 128 mode is a 
real upgrade of the 64, but has a fa- 
miliar feel to it. The same VIC chip 
is used to display 40 columns, bit- 
map graphics, and sprites, so the 
screen even looks the same, except 
for Commodore’s new power-on 
color choice—light green text on a 
dark gray screen with a light green 
border. You need an RGB monitor 
(or a monochrome monitor with an 
adapter cable) to use the full-color 
80 column mode, which is entirely 
independent of the 40-column 
screen supported by the VIC chip. 

The new BASIC 7.0 is one of 
the most feature-packed BASICs 
I’ve seen, To learn about the 
BASIC, | wrote a simple Frogger- 
type game, taking advantage of the 
automatic sprite-movement feature 
supported by BASIC. It seemed that 
if the game were designed around 
the special BASIC features, I could 
get machine-language animation 
and playability. | was half right. 
The game, “Litter Patrol,’”’ will run 
only in BASIC 7.0 in the 128 mode, 
but could be converted to run on 
the 64 with the Super Expander. 





Playing Litter Patrol 

Litter Patrol uses a joystick plugged 
into port 2. A joystick plugged into 
port 1 still interferes with the key- 
board in 128 mode. 
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The goal of Litter Patrol is quite 
simple: Pick up all the bits of litter 
and fill all the trash cans, Your 
heavy-duty (but sluggish) truck can 
move in eight directions almost 
anywhere on the screen, The cars, 
zooming back and forth on the 
highway, are constantly throwing 
out bits of trash, which appear as 
bright dots (periods) on the road, 
Move the claw of your truck over 
the trash bit, and press the fire but- 
ton. Your truck picks up the litter. 

Now move the claw over any 
trash can (which looks like a hollow 
circle), and press the button. The 
trash drops in the can, and the lid 
closes. Each trash can can only hold 
one load of trash, so it turns solid to 
show you not to use it again. After 
you've filled all 12 trash cans, you 
proceed to the next level. The cars 
go faster, and you move more slow- 
ly—quite a handicap. 

The game would be easy (and 
pointless) if not for the zooming 
cars. Dodging them provides the 
entire challenge for the game. If 
you get hit, you lose your trash 
bit—if you're carrying one—and 
one truck. The game ends when 
you lose all five trucks. Just to make 
things more interesting, you have a 
time limit, represented by a blue 
bar at the top of the screen. The bar 
drops by one segment every two 
seconds, so you have about 80 sec- 
onds to complete each level. The 
game ends instantly when you run 
out of time. 

There are some safe zones for 
your truck where you can’t be hit, 
medians between each roadway, 
and at the top and bottom of the 
screen. There’s a secret safety zone, 
too, but I'll leave its discovery up to 
you, You must move your truck 
halfway onto the roadway to fill a 
trash can, though. This makes a 
tough game even tougher. The 
hardest part of writing a game is in 
making it challenging but not too 
frustrating. Almost any game gets 
easier with practice, but an unfair 





Programming The 128 


game doesn’t encourage you to try. 


The Time Eaters 

Litter Patrol is fun to play, but a ca- 
veat is in order, I didn’t intend to 
program the game for its own sake, 
but for its educational value. Keep- 
ing in mind that the game is in 
BASIC, you may find it too slow. 
The main problem is the automatic 
sprite movement. The cars move by 
themselves once set up, but they 
are time eaters, stealing time during 
the interrupts from the mainline 
BASIC program, More about this 
below. 

We'll take a walk through the 
program listing. The program is too 
big for a line-by-line analysis, so 
we'll tackle it in chunks. You might 
find the program listing and put 
your thumb there for cross- 
reference purposes. 

Lines 100-190: The GRAPHIC 
0,1 command switches to the 40- 
column text screen and clears the 
screen. The COLOR 0,12 statement 
sets the background color to dark 
gray (even though this is the default 
color), and COLOR 4,6 sets the bor- 
der color to green. Note that the 
colors are numbered 1-16, not 0-15 
as in POKEs, We GOSUB 760 to fill 
sprite shape strings from the DATA 
statements. 

The roadways will be the back- 
ground color showing through oth- 
er areas printed with reverse 
spaces. This lets us put yellow and 
white lines on the road, We'll print 
green reverse spaces to represent 
grass, delineating the roadways. To 
print the median lines and grass, 
we create 40 character strings with- 
in the FOR-NEXT loop. It may be 
easier for the programmer to just 
define the literal strings as 40 char- 
acters within quotes (like 
SP$="'{40 SPACES}”’), but it’s 
easier to type in the program if we 
use a FOR-NEXT loop. I didn’t 
want any confusion over listing 
conventions for the first 128 pro- 
gram published in the GAZETTE. For 








FOR BETTER FOR WORSE 


For Better: Many of our customers have paid up to twice as much and owned as many as 3 other 
interfaces before purchasing a PPI and becoming satisfied. So, if you plan to buy a 
Commodore and a printer, or if you already own a system, save yourself some time, 
trouble and money. Buy a PPI and get the features (that others charge up to twice as 
much for) at the lowest price nationwide: $49.95. 


For Worse: You'll have to talk to our competitors. 
Think about it. 








$49.95 3 
PARALLEL PRINTER INTERFACE 


FOR USE WITH THE COMMODORE Vic 20, C64 and 128PC 
IMPORTANT FEATURES that may not be found on other interfaces, 


High Speed Graphics Buffer. 15 page easy to follow Users Manual. 
Works properly with all Commodore compatible FCC Approved. 
software, Expanded Alpha, Numeric, and Graphic Characters. 
Transparent Mode Lock Controls. Expanded Reverse Alpha, Numeric, and Graphic 
Total Emulation of Commodore's Graphic, Character, Characters. 
and Command Set. Condensed Reverse Alpha Numeric Characters, 
True Commodore Graphics. Commodore Print Function Lock Controls. 
Combining of Emulation and Transparent Modes. Combining of Expanded and Condensed Print features. 
No confusing DIP switches. Fully Shielded from end to end. 
PRINTERS 
Smith Corona Fast Text Royal 6107*** MPI X Printer** Citizen Brother CE-58*** 
80 Riteman Panasonic KXP BMC Brother DM-40 
Smith Corona DP series Radix Inforunner Mannesmann Tally Brother DX-5 
Smith Corona 200° Star Gemini X & SG Star Delta MT160 Fujitsu 
Smith Corona 300° series Blue Chip Olympia Compact NP Epson 
Smith Corona 400* MPI SX Printer ** Brother CE-50"** 
Royal 600**** 
The PPI works with all Centronics compatible parallel printers that utilize standard ASCII characters and command sets in the transparent mode. 


Must have the Smith Corona Messenger Module #17376 interface. 
Special adapter cable is rec 

* Must have the Brother IF-50 interface. 
**** Must have the Royal IF-600 interface. | 








Distributor and dealer programs available. Call 316-264-6118 for immediate information. | 


Geme) 


dsi | 


Sm 


DATA SHARE, INC. 
717 South Emporia - Wichita, Ks. 67211-2307 © 316-264-6118 © Telex: 650 193 4977 
DS! is a major OEM and private label manutacturer. Cail for complete information and quotations. 





Commodore 64 Accessories 


ve s+ SUPER x: xx 
Summer Sizzler Sale 


Sale Positively Ends 9-15-85 Reg. Sale Summer 
Prices will go back to regular sale prices List Price Sizzler Sale 


C128 Commodore Computer 5349°° #99909 $989" 


Expandable to 512K. runs C-64, CPM, and 7.0 Programs 
(Add $10 Shipping) 


154" Commodore 150-170 CPS Printer sg9500 +9990 $ 199%" 
Neor Letter Quality, Multiple Pin Tractor / Friction Feed. 
Best Printer Value in U.S.A. (Add $17.50 Shipping) 

Commodore-64 IEEE Interface $]09°5 +690 $ 95 
Allows you to run Pet Peripherals on the C-64, including the 109 69 65 
One Megabyte Disk Drive and 15'2" Printer 


Juki Printer/Typewriter 53490 #94900 $999" 


Letter Quality, daisy wheel, use as typewriter and/or printer 
(auto correction) (Add $10 Shipping) 


SCM 80 CPS Printer $9990 $1590 $ 149 95* 


Tractor Friction 10" Famous Name Printer does Graphics 
w_ Interface, (Add $10 Shipping) 


Cardco G Plus Interface s1090 +5900 $4g7s 
Converts Commodore to centronics for use with most printers, plus 
does Commodore graphics on graphic printers 


Alphacom 40 Column Printer 59990-89495 $99% 


Thermal technology - does graphics. (Add $7.50 Shipping) 
Alphacom C-64 or Atari Interface $8.95. 


190K Slim-Line Disk Drive 52499? +1900 $739" 


Cooler, 20% faster, quieter than 1541 drive (Add $10 Shipping) 


One Megabyte Disk Drive (1000K) = <ggq0 +3 99 $779" 


Double sided drive hooks up to C-64 with IEEE interface, perfect as a 
second drive. (Add $10 Shipping) 


13" Premium Quality Color Monitor — :39900 —_ +4990 $769" 


Better than 1702, with separated video inputs. (Add $14.50 Shipping) 


Voice Synthesizer 5399 _$qgoo §39% 


Allows you to talk through your computer. Optional software lets 
you play talking adventure games (Zork, etc.) 


80 Column Board - 4 Slot Expander ;) 49% —+7g00 $599 


Allows you to program in 80 columns, plus gives you a 4 slot switch 
selectable expander 


Auto Dial Modem with Super Smart Software <}29% — +590 $39 95 


Upload, Download, Print, Catalog, This Package has it all!!! 
Bes! Modem Value in the U.S.A.!! 


Musicalc | Software 559% $2995 $ 14°5 
The Best Musical Software for the C-64, allows you to change all 
parameters. 


Oil Barrons Software 549% +1995 $975 
Better than Monopoly, comes with game board, disks and 
instruction manual. Strike Oil or Live in the Poor Farm * plus Software Coupon Discounts 


‘Add $3.00 for shipping, handling and insurance. Illinois residents 

ALASKA, APO-FPO orders. Canadian orders must be in U.S, dollars 

WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. > - ; Ss 

Enclose Cashiers Check. Money Order or Personal Check. Allow 14 We Love Our Customers 

days for delivery. 2 to 7 days for phone orders. 1 day express mail! 22292 N. Pepper Rd.. Barrington, Illinois 60010 
VISA — MASTER CARD — C.O.0 


No C.0.0. to Canada, APO-FPO 312/382-5244 to order 











FANTASTIC COMPUTER PRINTER SALE 


it) Geo) ES 
HIGH SPEED 


Tractor Friction ‘Printer 
130-150 CPS 


List $499 
15%'' 150-170 CPS Printer $319” 


¢ Lowest Sale Price, Premium Quality, Tractor/Friction Printer in the U.S.A. (Best Value) 
* High Speed 130-150 Characters Per Second * 40, 46, 66, 80, 96, 132 line spacing 
© Word Processing, Letters * Business Forms ¢ Labels, Graphics, Tables * List Programs 
© Fantastic Graphics * Print Modem Data * The Most Important Accessory For Your Computer 


Premium Quality SMITH 3 
130-150 CPS 10X COM-STAR elle SEROMA @ Olympia 
io High Speed Emnten $100 10” 80 CPS Printer Executive Letter Quality $299.00 
1 § Friction/Tractor Bidirectional Dot 15” Daisy Wheel Printer 
Matrix printer with six pitches This is the world’s finest daisy wheel 
impact, dot matrix, 130-150 CPS, 9x 9 including condensed and enlarged Printer. Fantastic letter quality, up to 
dot _ matrix with double strike type for impeccable printing. Drop in 20 CPS bi-directional, will handle 14.4" 
capability for 18 x 18 dot matrix (near cassette ribbon; centronics interface forms width! Has a 256 cha 
letter quality), high resolution bit included. buffer, 8 
image, underlining, downloadable List $299.00. Summer Sale $149.00 pun esen 
characters, true lower descenders (Limited Quantitics) Parallel and RS' 
with super and subscripts, prints day warranty) 
ndard, block graphics, and special List $649.00, Summer Sale $299.00 


ters. It gives you print quality 15+ 
ires found on printers costing Super Summer Sale Ends 9-15-85 


much!! (Centronics Parallel Liki 
ce) (Better than Epson FX80 a i oOo m H 
la 
List $499.00, Sale $199. Printer/Typewriter ; i yt Pi on 
Combination $229.00 Printer/Typewriter Combination $399.00 
Premium Quality 150-170 CPS “JUKI" Superb letter quality, daisy Better than ree Belectd Superb 
15'4X COM-STAR Business wheel printer/typewriter computer printer com bined with the 
é Vy, CON : RI ui! ine combination, Two machines inone — | World's finest electronic typewriter. 
uper High Speed Printer $319.00 | just a flick of the switch. 12" extra | TWO Machines in one, just flick the 
Baefallithe feat: ee GLE COM- large carriage, typewriter keyboard, eullch for up to 20 CPs printing (300 
SUN RGR BR Blue ere cack tage automatic margin. control and Wen B Bets inute) on a 15" carriage 
components ton handle large edger relocate key, drop in cassette ribbon! Drepilnte EAT BRORee eet 
business forms! (Better than Epson | (9, day centronies | oft "cor Centronics parallel 
FX 100 & Delta 18) parallel or RS: Tportsbulieiiny |i) pp ceoree ron) ont i 
Pal elta 15). . Sale $220.00, interface (90 day warranty). 
ist $599. Sale $319.00, List $749.00, Summer Sale $399.00, 


¢ 15 Day Free Trial — 1 Year Immediate Replacement Warranty 
AIS PN SEL US EN LE ON 


PARALLEL INTERFACES 
For VIC-20 and COM-64 — $59.00. Apple — $59.00. Ata $59.00. 


‘Add $14.50 for shipping, handling and insurance. Illinois residents [> ROTE CfTo 
please add 6% tox, Add $29.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars, Z 

WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA. We Love Our Customers 


Enclose Cashiers Check, Money Order or Personal Check. Allow 14 22292 N. Pepper Rd., Barrington, Illinois 60010 
days delivery. 2 107 days for phone orders. 1 day express mail! 


VISA — MASTERCARD —C.O,0. _ NoC.0.0. to Canada or APO-FPO 312/382-5244 to order 








Commodore 64 


One Megabyte 


Sale Sale 


1179 Disk Drive ‘179 


Store Spreadsheets, Databases, Wordprocessing Data, Etc. 
* Commodore 64 ® PET ° 8032 © B128 










The one megabyte disk keeps you from hunting through hundreds of disks for your programs; plus running out of 
room on your drive for Data base Data, Word processing Text, Spreadsheet Data, Business program Data, etc. 
With the One Megabyte Disk Drive you can store over 5% times the capacity of the 1541. You can store your 
own programs and any back-upable commercial programs plus data from your business programs’. Perfect as a 
second Drive! !!! Enter the world of professional computers today. C-64 requires IEEE interface. 

List $899.00. Sale $179.00, LIMITED QUANTITIES! “Requires 2 drive software 


°199° Sale *199° 


15’%2"' High Speed 
150-170 CPS 


BUSINESS PRINTER 


The 8023 is a highly advanced 136-250 column 15'2" professional tractor/friction printer with full Bit image graphics and 
downloadable characters for custom reports and program listings. The paper feed includes a multiple pin tractor for 
smooth error free operation. With the ribbon rated at | million characters (no mess cartridge) and the print head at 100 
million characters this printer will last a lifetime. Full formatting with near letter quality makes lining up decimal 
points, automatic “$" signs and tabbing look fantastic and easy to use. With out a doubt THIS IS THE BEST PRINTER 









VALUE IN THE U.S.A, List $899.00 Sale $199.00. LIMITED QUANTITIES! 
PRINTING METHOD COLUMN CAPACITY RIBBON LIFE GRAPHICS 
Serial Impact Dot Matrix 136 - 250 1 Million Characters Bit Image 
PRINT RATE LINE SPACING PAPER WIDTH Programmable Characters 
150-170 Characters per Programmable 3" to 15%" tractor or Reverse Characters 
second (CPS) single sheet friction 
Near Letter Quality i gions) IEEE Protocol Internal 
PRINT DIRECTION RIBBON TYPE CHARACTER SIZE Self - Diagnostics 
Bi-directional Cartridge ($14.95) 0.116" high, 0.08" wide Microprocessor 





Commodore 64 IEEE Interface 


This interface plugs into your Commodore 64 Disk Drive port and allows you to hook up the 1 Megabyte Disk Drive and 
8023 Printer as well as other IEEE devices. Separte power supply insures reliability. Fantastic Interface. 
List $109.95, If bought with printer or disk drive $69.00. 
(no interface needed for PET, B-128, and 8032 computers) 





‘Add $17.50 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $35.00 for CANADA, PUERTO RICO. HAWAII | = Ro TT = | To 
ALASKA, APO-FPO orders, Canadian orders must be in U.S. dollars. 

WEDO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 5 ; z= 

Enclose Cashiers Check, Money Order or Personal Check. Allow 14 We Love Our Customers 


days for delivery, 2107 days for phone orders, | day express mail! 22292 N. Pepper Rd., Barrington, Illinois 60010 
VISA — MASTER CARD — C.0.D 


No €.0.0. 10 Canada, APO-FPO 312/382-5244 to order 

































COLOR MONIT 
3G SALE!!! 5. 


(Premium Quality) 











(Premium Quality) 






Super Summer 
Sizzler Sale 


9169 


Reg. Sale Sao 







* Beautiful Color 
Contrast 


* High Resolution 

* Separated Video 

* Sharp Clear Text 

* Anti-Glare Screen 

° 40 Columns x 24 Lines 
* Supports 80 Columns 

0 shipping. handling and insurance 


nop List $329° 
Gale enancctni aa lineicties 
9) Alona Fuerte nce A704fo | 13" Color Computer Monitor Reg. Sale S374 


* Built in Speaker and 
Audio 


* Front Panel Controls 











* For Video Recorders 





° For Small Business 
Computers 











* Apple - Commodore - 
Atari - Franklin - etc. 








een Ir phone order 1 dey expen *Connecting cable $9.95 Summer Sale $169% 
14" COMMODORE 1702 COLOR MONITOR Super Summer $] 79° 
(add $14.50 shipping) List $299.00 _ Sizzler Sale 


15 Day Free Trial - 90 Day Immediate Replacement Warranty 


12" XTRON SUPER HI-RESOLUTION MONITOR ‘wer summer $1 Q)Q)95° 


80 Columns x 24 Lines, Super Hi-Resolution 1000 lines Green or Amber Sizzler Sale 
Super-Clear “Easy to Read” text with special anti-glare screen! (Ltd. Qty.) List $249.00 


12" <YensTH HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 
80 Columns x 24 Lines, Hi-Resolution, crisp clear easy to Super S * 
read text with eniitelere scraanVAIMUSTiforword Barend Yd. ty.) bist $199.00 reslarsalem $8995 


12 MONITOR GREEN OR AMBER TEXT ji515150.00 Super Summer $&Q95° 


80 Columns x 24 Lines, easy to read up front controls (Ltd. Qty.) Sizzler Sale 


13" RGB & COMPOSITE MONITOR iis; ss09.00 Super Summer $97 Q 00" 


Must be used to get 80 columns with C128 & Atari ST. 


Sizzler Sale 
* Connecting cable $9.95 





please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII 


ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 2 , “Ss 

WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. We Love Our Customers 
Enclose Cashiers Check, Money Order or Personal Check. Allow 14 22292 N. Pepper Rd., Barrington, Illinois 60010 
doys for delivery. 210 7 days for phone orders, 1 day express mail! 


VISA MASTER CARD—C.0.D._ NoC.0.0. 10 Canada, APO.FPO 312/382-5244 to order 


























this reason, you'll find no embed- 
ded cursor controls. Everything is 
done with CHR$ codes. Instead of 
printing color codes, we use the 
COLOR command to change the 
text color, However, you'll occa- 
sionally see a {SPACE}. Just type 
one space instead of the bracketed 
word, 

Line 140 turns off all sprites 
that may have been active from a 
previous RUN of the game. We 
then print the roadways with green 
bars above the road, white or yel- 
low median bars for the middle of 
the road, and blank lines for the 
road itself. The time line is printed 
in blue at the top of the screen. 

Lines 200-250: Line 200 is try- 
ing to print a 40-column inverse 
string at the bottom of the screen. 
You can’t normally do this without 
scrolling, but it’s possible if you 
print 39 characters, cursor left, use 
the INST key to insert the thirty- 
ninth character into the fortieth po- 
sition, then print another character 
to fill the gap created by INST. 

The title of the game is printed 
with the CHAR command, CHAR 
is a usable substitute for PRINT AT. 
It lets you print any string at any 
X,Y position on the screen, and in 
normal or reverse field. Combine it 
with COLOR to change the text 
color, The subroutines at 720 and 
730 are used to display the score 
and number of trucks (“lives”) re- 
maining. The FOR-NEXT loop in 
lines 220-230 draws all the trash 
cans, at rows 2, 9, 16, 23, and col- 
umns 8, 20, and 32. 

We then build a music string. 
It's a cutesy, happy melody, but all 
that’s important here is to notice 
the PLAY syntax. The letters CDEF- 
GAB stand for notes. The V1 sets 
the voice to voice 1, O2 sets the oc- 
tave to 2 (that’s an O, not a zero), 
and TO selects a piano-like instru- 
ment setting. The letter I sets the 
note duration to eighth notes; Q is 
used for quarter notes, with a peri- 
od for a dotted quarter. The sharp 
(#) precedes the note it modifies. 
And R is used as a rest. We'll play 
the string in line 360. 

Lines 260-320: The automatic 
car sprites are set up. SPRCOLOR 
sets the sprite multicolor registers 
to white and black. All sprites share 
these colors. White is used for the 
windshield (or the claw on the 
truck), and black for the tires. I used 
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the built-in sprite editor to design 
the sprites, then made DATA state- 
ments for them. The DATA state- 
ments are read into strings, then 
each string is assigned to a sprite 
with the SPRSAV command. Sprite 
strings are 67 characters long, not 
64 as you might expect. 

For the six sprites (FORI= 
2TO7), we read the sprite X and Y 
positions from a DATA statement 
at line 1110, Notice that you can 
now RESTORE to any line number. 
The SPRITE command turns on the 
sprite, sets its color, and specifies 
multicolor mode. It can also be used 
to select sprite/foreground priority, 
and X/Y expansion. Nonexpanded 
sprites offer the greatest detail. 

The MOVSPR command can 
move a sprite to any position, up or 
down by any amount, or automati- 
cally at any angle and at 16 speeds. 


fits 





The crafty truck has dodged the car and 
rests momentarily on a median strip in 
“Litter Patrol.” 


We use the automatic syntax (the 
two arguments are separated by a # 
sign instead of a comma). The angle 
is either 90 (right) or 270 (left). An- 
gle 0 is pointing straight up in the 
sprite angular system. Whether a 
sprite goes left or right depends on 
its sprite number. If (SN =2) is true 
(1), then 180 is added to 90, giv- 
ing us 270. Otherwise, the angle is 
90. 

The speed, which can range 
from 0-15, varies from up to 5 
speeds from the base speed, DF. 
This sets the difficulty level. A 
higher DF gives generally faster 
cars. We save the angles and speeds 
in arrays so that we can later pause 
the game (all speeds go to zero), 
and restart it from the arrays. 

The automatic sprite move- 
ment is amazing. Even if you stop 


the program, the sprites continue. 
You can LIST your program, and 
the sprites still whiz by. However, 
you'd notice a suspicious slowness 
to the listing. When you use auto- 
matic sprites, everything else slows 
down drastically. The more sprites 
are moving, and the faster they go, 
the less time is available for the 
main program. This made the truck- 
moving part of Litter Patrol quite 
sluggish, and explains why the 
truck moves more slowly as the cars 
go faster. 

While automatic sprites give 
you smooth, fast motion, this mo- 
tion is not under your control. 
Speed is the reason you would use 
the automatic sprites in the first 
place, but the time saved by the 
automation is stolen from your 
main program. You can achieve a 
workable compromise if you plan 
your game around the limitations. 

Lines 340-360: We synchro- 
nize the truck's position with the 
character screen so that the claw 
will cover the dots that represent 
trash bits. The truck always moves 
eight notches at a time, as if it were 
a character. Therefore, it’s always 
synchronized with the character 
grid. 

Line 350 turns on the collision 
interrupts. Any time a sprite hits a 
sprite, the program goes to line 580. 
Since all the sprites are in separate 
lanes, this can only happen when 
the truck is smashed. When we RE- 
TURN from the subroutine at line 
580, the program picks up where it 
left off when the collision occurred. 

We play the tune in line 360 
only at the beginning of the first 
level (IF DF= 1). The colon after the 
THEN is necessary to avoid a syn- 
tax error. This is inconsistent with 
the way BASIC is supposed to 
work, but is a familiar necessity 
with many language extensions on 
the 64. Apparently some of the 
BASIC 7.0 commands are consid- 
ered extensions of BASIC. 

Lines 370-470: We enter the 
main loop here. While the car 
sprites move automatically, we 
must move the truck ourselves. 
First, if two seconds have passed 
(TI—T>120), we erase a character 
from the time line. If the time line 
hits zero, we go to the “game is 
over” routine at line 640. In 380 we 
check for a keystroke. If a key is 
pressed, we halt all sprites and wait 





for a new keystroke with GETKEY, 
then turn all the sprites back on. 

In line 390, we check for the 
highly probable: Is the value of 
RND(1) (which randomly varies 
between 0 and 1) less than .95? 
About 95 times out of 100, it will 
be, skipping lines 400 and 410. Five 
percent of the time, though, 
RND(1) will be greater than or 
equal to .95, so we pick a sprite 
number, read its X/Y position, 
translate the sprite coordinates to 
character coordinates, and draw a 
white period to represent an empty 
cola can (or whatever litterbugs 
throw out car windows). They all 
look like little dots, though, from 
your aerial perspective. The ran- 
dom statement controls the timing 
of litter dropping. Without it, there 
would be a stream of trashy bits 
flowing from all cars. 

Lines 420-460 move the truck. 
The JOYstick command returns a 
number from 0-8, and is greater 
than 128 if the fire button is 
pressed, We use the JOY value as an 
index into the DX and DY arrays. 
These arrays contain the values 
—8, 0, or 8 for each position. For 
example, the southwest position of 
the joystick is down eight (+8) and 
left eight (—8). Remember that 
we're moving eight spaces at a 
time. We add this displacement to 
the current X and Y positions of the 
sprite, then relocate the sprite to the 
new position. We subtract the dis- 
placement if that would put the 
sprite off the screen. 

Lines 480-570: This is the fire 
button routine, called by line 430 if 
it’s pressed, It first figures out the 
position of the character under- 
neath the truck claw, then PEEKs 
screen memory to see what the 
character is. If it’s a period (a trash 
bit), and if the truck is not carrying a 
trash bit, we POKE directly into the 
sprite shape to put a dot in the claw, 
then POKE a space into the position 
where the period was. So even in 
BASIC 7.0, you sometimes need to 
use PEEK and POKE. One point is 
added to the player's score, which 
is redisplayed using the subroutine 
at 720. 

If the character is an empty 
trash can (hollow ball), and if the 
truck is carrying a piece of trash, we 
change that hollow ball to a solid 
ball, increment the filled trash can 
counter, and award ten points. If all 





12 trash cans are full, we award a 
1000 point bonus and increment 
the difficulty level, without letting 
the difficulty level exceed 3. The 
game is restarted at line 140. 

Notice the use of BEGIN and 

BEND. BEGIN starts a block of code 
that is only executed if a preceding 
IF was true. BEND ends the block. 
So BEGIN/BEND lets you extend 
the statement after a THEN into 
several lines. I placed a colon on 
these extended lines to remind my- 
self that they are part of a BEGIN- 
/BEND block. 
Lines 580-700: This is the collision 
routine, called automatically when- 
ever the truck is hit. The function 
BUMP(1) reads the sprite-to-sprite 
collision register. The collision rou- 
tine should only be called when the 
sprites collide, but I found it was 
entered twice for every time the 
truck was hit. The check in line 580 
prevents false collisions. I still don’t 
know why this is necessary. 

For the collision, we print a sil- 
ly message, make a high-pitched 
sound effect, move the truck back 
to the bottom of the screen, remove 
any trash bit the truck may be car- 
rying, reset the collision with 





A=BUMP(1), then decrease the 
number of trucks. If there are still 
trucks remaining, we continue with 
the game by RETURNing from the 
sprite interrupt. 

For the “game over” routine, 
we play another tune, print the 
GAME OVER message, and wait 
for the fire button to be pressed 
while we redraw GAME OVER in 
different colors. Before we check for 
the button press, we first wait for 
the player to let go of the button in 
case the player was picking up or 
dropping a trash bit. Otherwise, the 
game would instantly restart. 

Lines 720-1110: These are sim- 
ple subroutines. Line 720 updates 
the score; line 730 updates the 
number of remaining trucks; 740 
stops all sprites; 750 restarts them; 
and 760-780 read in the joystick 
displacements and sprite shapes. 
The rest of the program is DATA 
statements for the cars and the 
truck. 

The descriptions above can 
give you an idea of the detail re- 
quired to program even a simple 
game. This is not meant to discour- 
age, but to challenge. 

See program listing on page 102. @ 















“S AIT! 


_ for everyone in your family... 











No disk drive necessary? 
Menu driven? 

Flexible, powerful, practical? 
Affordable? 


























HHO 


ALL-IN-1/ 


for the C-64 










DECISION MAKING 
© Choosing a family car? 


© Build decision models 


© Considering vacation alternatives? 





COMMUNICATIONS 
© 300/1200 BAUD 
© Access information systems 
© Complete parameter setting 





FINANCE 
Compute loans and investments 
Compute payment schedules 
Menu driven 





CALCULATIONS 
* Checkbook balancing 
Insert formulas 
¢ Full screen display 








Proware Solutions — 


575 E-REMINGTON, NO. 9H * SUNNYVALE, CALIFORNIA 94087 | 


alah 


























$19.95 (Disk) 


Signature 


$24.95 (Cart.) Name 
‘Add $3.00 Shipping and Handling 
Enclose Check or Money Order Payableto. ‘Address. 
PROWARE SOLUTIONS , 
City 
State Zip 
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Maze-Mania 


Mark Tuttle, Kevin Mykytyn, And Philip Nelson 


It’s easy to find your way through this maze, but 
can you make it within the time limit while 
avoiding the fast-moving cubots? A ten-level 
game with two variations (for the stouthearted 
only) for the Commodore 64. A joystick is 


required, 


Here’s a written guarantee that you 
won't find this game easy or dull, 
From the start, “Maze-Mania” puts 
your brain and hand to the test. The 
object is simple: Travel through the 
maze and exit. But getting there 
within the time limit is a rare 
occasion. 


Move Fast And Think Ahead 
After entering the program and 
saving a copy, plug a joystick into 
port 1, Load the program, type 
RUN, and select the game you wish 
to play: Normal, Fade, or Nervous. 
Start with the Normal Game—it’s 
hard enough. Next, choose a one- 
or two-player game (more on the 
two-player game below). Then get 
ready—the action begins immedi- 
ately, and the time starts ticking 
away. You begin at level 1 (there 
are ten) with three lives. On the left 
side of the maze, you’re repre- 
sented by the white ball, Using 
your joystick, maneuver to the exit 
on the right side of the maze, avoid- 
ing the fast-moving cubots. A col- 
lision is costly. 

The key to succeeding is to 
move fast and think ahead. The 
cubots create a lot of traffic, and 
you have to study their movement 
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to plot your course. But don’t study 
too long, or time will run out. 

Sitting back and moving care- 
fully and deliberately works well, 
but you won't succeed this way. 
You must complete the maze in less 
than a minute. If time expires or 
you collide with a cubot, you lose 
one life. The timer, at the top of the 
screen, starts at 200 and counts 
down very quickly. A successful 
trip through the maze earns points 
(the level completed multiplied by 
the time remaining) and an extra 
life (two is the maximum you can 
have in reserve), You then enter the 
next, faster level with a different 
maze. 

As the levels increase, so will 
your strategy. At the higher levels, 
you'll have to move so quickly that 
you'll rely solely on instinct. Be 
sure to have a good supply of 
adrenaline on hand. 

When you've exhausted your 
lives or completed level 10 (we've 
never completed level 9 here at the 
GAZETTE), you receive a final score, 
highest level completed, and an in- 
vitation to play again. 


At Your Own Risk 


The game variations, Fade and Ner- 








Starting at the left, this player (the 
white ball) has made it almost halfway 
through the maze. In a safe position, he 
waits for the cubot to move out of the 
way, 


vous, are not for the timid, The 
rules of the normal game apply, but 
either variation should be seriously 
undertaken only if you’ve mastered 
the normal game. In the Fade 
Game, the cubots fade and re- 
appear. Only with careful study can 
you succeed. The Nervous Game 
will be familiar to those who have 
been seasick, The entire maze 
shakes repeatedly. If you make it 
through level 10 in this game, con- 
sider a career in the Navy. 


The Two-Player Version 

All the rules discussed above apply 
in the two-player version. Note, 
however, that both players must 
share the same joystick. Each 
player continues until completing 
the maze or losing all three lives. If 
one player loses, he receives a 
“Game Over” message and passes 
play to his opponent, who may 
then try for a new high score. Also, 
the final screen appears only after 
both players have exhausted all 
lives or completed level 10. 

See program listing on page 101. @ 








TRACKER 


Ned W. Schultz 


Can you help Purple Herbie get home? This 
game for the Commodore 64, written by a child 
psychologist, is designed for the whole family: 
level 1 for children and the higher levels for 
adults. A joystick is required. 


In this strategy game, you’re 
Tracker the robot, and your mission 
is to lay track across the wilderness 
so Purple Herbie can get home. If 
you lay track cleverly, Herbie can 
collect lots of valuable objects on 
his way home. But that’s only part 
of the strategy. You must watch out 
for the Meanies and the Deadly X's 
they leave behind. They'll destroy 
your track. And you have to work 
quickly—your time is limited and 
the clock is always moving. 

With five skill levels, 
“Tracker” is designed so that it can 
be played by young children as well 
as adults. It requires creative solu- 
tions, risk-taking, and racing 
against time. On the lowest level, it 
has educational value and provides 
a challenge. On the higher levels, 
the game can be very difficult for 
even the most seasoned game 
player. 

Tracker has no “pattern’’— 
each game is designed by the 
player. And because getting Herbie 
home even without collecting any 
prizes provides a sense of “win- 
ning,” children as young as three or 
four can have fun with Tracker. 
Adults will find a different chal- 
lenge: collecting the maximum 
number of points while getting 
Herbie home. 


Choosing The Right Skill Level 


After typing in the program, save a 


copy to disk or tape, then run the 
program. First, you're presented 
with an option (Y/N) for game 
instructions. These should be read 
the first time you play. 

Next, select a skill level from 
1 to 5. Level 1 offers the fewest 
Meanies and Deadly X’s (and no 
penalty points). The prizes increase 
in value across the five levels, as do 
the number of points for getting 
Purple Herbie home. A higher skill 
level, then, is important if you're 
playing competitively for high 
score, The level you select remains 
the same through each round of the 
game, 

Move Tracker with a joystick 
(port 2), and press the fire button to 
lay track as you move. Wind a trail 
of track through as many objects as 
you wish and direct Tracker 
“home” (the pink square at the 
lower right). Only when Tracker is 
home will Herbie start out to follow 
the track and collect points. Be care- 
ful not to linger—the Meanies are 
constantly on the move, and the 
timer (at the top of the screen) ticks 
away without pause. Herbie must 
be home before it reaches 0. 

If track is laid in a disorderly 
fashion (by creating branches 
rather than a single, continuous 
route, for example), you may con- 
fuse Herbie, so you should design 
your track efficiently, going 
through as many objects as possible 











if you’re playing for points. If 
Herbie dead ends or stalls (runs 
into a Deadly X, for example), move 
Tracker quickly to Herbie’s area (he 
can move diagonally if the fire but- 
ton is not pressed) and erase any 
track you don’t want by moving 
over it without the fire button 
pressed. Press the fire button again 
to lay new track if necessary. Also 
note that Tracker can ‘‘wrap 
around” the screen (right edge to 
left edge and vice versa) and lay 
track, You might need to use this 
feature occasionally, such as when 
a Meanie leaves a Deadly X in a 
strategic position. 

You begin each game with 
three Trackers (lives). If time runs 
out before Herbie is home, or if 


aebbe ah 


vienveveeee eke 
x 





Purple Herbie follows the track you've 
placed. 


Tracker runs into a Deadly X, you 
lose one life. The game ends when 
you've lost all three Trackers, 


A Competitive Challenge 

If you're playing competitively for 
highest points, you can risk going 
for all the points and a special bo- 
nus. Be sure to capture at least half 
the available points or you'll re- 
ceive a penalty (except in level 1). 
It’s a good idea to get Tracker home 
as fast as possible and let Herbie 
start moving—the longer you wait, 
the more Meanies and Deadly X’s 
appear. You can modify your track 
when Herbie is closer to home. The 
best strategy is to collect as many 
prizes as you can while still leaving 
enough time for Herbie to make it 
home. 

No one has ever captured the 
perfect round bonus above level 2, 
so this is a goal to aim for. The 
record at level 5 is 16,900 points. 
See program listing on page 91. @ 
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Cal Overhulser 


A stranded visitor from 
another galaxy needs to 
get home and doesn’t 
have much time. Can 
you help? A fun game 
for children of all ages. 
For the Commodore 64 
and VIC-20 (at least 3K 
expansion). A joystick 
is required. 


Designed especially for children, 
“Friendly Alien” is a nonviolent 
game which requires strategy and a 
little dexterity with a joystick. The 
object is simple: You must guide a 
stranded visitor to a phone from 
which he can call home, then lead 
him to the ship when it lands. 
That's easy enough, but what 
presents a challenge is the visitor's 
sweet tooth and his susceptibility to 
human viruses, 


Candy, Cola, And The Two- 
Minute Flu 
When you first run the program, 
you're given game instructions and 
asked to choose one of five skill lev- 
els. First-time players should start 
with level 1 (the easiest) and move 
up as each level is mastered. After 
the screen is drawn, the game be- 
gins immediately. Using a joystick 
(port 2 on the 64), move the visitor 
around the screen. You'll see three 
kinds of randomly placed objects: 
candy (the small dots), cola (red 
cans), and flu bugs (blue and yellow 
stars). 

The object is to eat all the 
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Friendly 
Alien 


candy while avoiding the cola and, 
of course, the flu bugs. Drinking the 
cola causes an allergic reaction, 
making the alien’s movements a bit 
unpredictable (you may have to 
drink some of the cola at the higher 
skill levels to get to the candy). The 
flu bugs are more serious threats— 
they’re fatal. Avoid them at all 
costs. Be particularly careful around 
the moving (yellow) bugs. They 
often hover near pieces of candy. 

After you eat all the candy, a 
phone appears at the upper left, 
and the visitor reappears at the bot- 
tom right. You must guide him to 
the phone so he can call “home” for 
a spaceship, again avoiding the cola 
and the flu bugs. After hearing the 
phone ring three times, the visitor 
again appears at the bottom right 
and the spaceship arrives. A ramp 
is lowered for the friendly alien to 
board. Move him to the ramp with- 
out allowing him to drink a cola or 
catch the flu, and he’s home safe. 

You must work quickly—es- 
pecially at the higher levels, where 
there is more candy (and more ob- 
stacles, too). In the Commodore 64 
version, you have two minutes to 
get the visitor to the spaceship 
ramp; in the VIC version, one 
minute and 30 seconds. Be sure to 
keep an eye on the time. 


Typing It In 

If you have a Commodore 64, type 
in Program 1 and save a copy 
before typing RUN. The VIC ver- 
sion is approximately 5.5K, so 
you'll need at least a 3K expander to 
type in the program and run it. 
Don’t add any spaces as they could 
cause some lines to go beyond the 
allowable 88-character limit on the 
VIC. Again, be sure to save the pro- 





gram before you run it. 

Two short loaders (Programs 3 
and 4) for the VIC are included to 
allow an automatic check for suf- 
ficient memory, automatic adjust- 
ment for any memory expander, 
and automatic loading of the main 
program, Program 3 is for disk 
users, Program 4 for tape users. If 
you use tape, first type in and save 
Program 4, then type in and save 
Program 2 immediately following 
the loader. With tape you can name 
either program anything you wish 
since the tape loader loads the next 
program regardless of the name, 

VIC disk users may type in and 
save Program 2 and Program 3 in 
any sequence. However, the main 





Avoid the flu bugs while you help the 
friendly alien collect candy pieces (64 
version). 


program (2) must have the same 
name as found in line 60009 of the 
loader program. (I’ve used 
“VICFRIENDLY”’—with no spaces. 
You can change this if you like.) 


Notes To Programmers 
Descriptive REM statements are in- 
cluded before each major program 
segment to aid those interested in 
understanding how the program is 
written. None of these REMs are 
the destinations of GOTOs or 
GOSUBs, so they can safely be 
removed, 

Joystick movement in the VIC 
version is checked with a machine 
language routine contained in 
DATA statements. The routine is 
POKEd into the cassette buffer in 
line 94, The SYS in line 1000 calls 
the routine and puts the joystick 
direction in address 830. The 64 
version uses a more conventional 
BASIC joystick reader in line 1000. 
In both versions, the variable AA is 
made equal to the joystick direction 
in line 1000. The ON-GOSUB in 








line 1050 checks this variable and 
adjusts the alien’s location by 
choosing one of the subroutines in 
lines 11-18. 

In both versions, custom 
character information is found in 
the DATA statements. Any typing 
error here could be critical and diffi- 
cult to find. I’ve included a DATA 
statement checksum checker in line 
70 (64 version) and line 95 (VIC 
version). The checksum is cal- 
culated after each READ in the 
preceding lines. This will greatly re- 
duce the chance of typing errors in 
the DATA statements. 

When there is more than one 
moving flu bug (skill levels 2-5), 
not only is their direction random 
(line 1510), but also selected ran- 
domly is which flu bug moves (line 
1500). This adds suspense to the 
game and, more importantly, keeps 
it from running too slowly at the 
higher skill levels. Notice that the 
movement subroutines in lines 
11-18 are also used to move the se- 
lected flu bug by the ON-GOSUB 
in line 1515, 

The game screen has a solid 
frame (border), This makes 





A phone call brings the spaceship which 
will carry the alien home (VIC version). 


programming simpler by allowing 
the programmer to keep the mov- 
ing characters on the screen with a 
simple check for collision with the 
border character code rather than 
using lengthy position checking 
calculations. 


Custom Characters 

The custom characters are created 
by first moving the normal upper- 
case and numeric characters (screen 
codes 0-63) into RAM. This is done 
in lines 20 and 40. Line 20 protects 
the upper part of memory by 
changing the top-of-memory 





pointer. Line 40 moves the charac- 
ters into the protected area. In the 
64 version, lines 36 and 48 are also 
needed to switch in and out the 
character ROMs. Beginning in line 
50, the custom character infor- 
mation replaces some of the normal 
characters. The numeric and most 
of the alphabetic characters are not 
replaced, thus allowing readable er- 
ror printouts should you have cus- 
tom characters enabled while 
debugging your program. The 
switch to the new character set is in 
line 515. 

The time limit can be changed 
if you want the game to be even 
more challenging. (The best time 
I've managed on skill level 5 is 1 
minute, 15 seconds on the VIC and 
1 minute, 45 seconds on the 64.) To 
change the time limit, change the 
value of TU$ in line 830. For ex- 
ample, to change it to 1 minute, 15 
seconds, change the value of TUS 
to 000114 in line 830. The value 
should be one second less than the 
limit you want. To keep the game 
instructions correct, you'll also 
want to change line 169 in the VIC 
version and line 170 in the 64 ver- 
sion to your new time limit. 

If you'd rather not type in the 
program (VIC or 64 version), senda 
blank tape or formatted disk, a self- 
addressed, stamped return en- 
velope, and $3 (U.S. funds) for each 
copy. Outside the U.S., don’t send 
stamps but include the extra cost of 
postage. Please note the name of 
the program, which computer you 
own, and if you want the disk or 
tape loader included (VIC version 
only). Send it to: 

Cal Overhulser 

P.O. Box 494 

Westford, MA 01886 


See program listings on page 93. @ 
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SYMBOL MASTER™ 
MULTI-PASS SYMBOLIC 
DISASSEMBLER 
FOR THE COMMODORE 64* 


disassembles any 6502/6510 
machine code program into 
beautiful source 


‘© Learn to program like the experts! 
© Adapt existing programs to your needs! 
‘© Automatic LABEL. generation 
# Outputs source code files to disk fully compatible 

with your MAE? PAL,* CBM* or Develop-64* as- 
sembler, ready for re-assembly and editing! 

on ren and printer 
‘of Kernal jump table 





© Automatically uses 
es and all operat 
jenerates list of equates 
jenerates complete cross-referenced symbol table. 
fecognizes instructions hidden under BIT 





Instructions. 
© 100% machine code for speed, 
(Symbol Master™ is not copy protected.) 
ORDER NOW! Available on disk only. Introductory 
price $49.95 postpaid USA. 
*MAE is a trademark of Eastern House, 
PAL isa trademark of Pro-Line 
Commodore 64 isa trademark and CBM (sa registered 
tnademark of Commertore 
Develop-64 is.a trademark of French Sit 


Ei: 


UNLEASH THE POWER OF 

YOUR COMMODORE 64 
WITH THE ULTIMATE 

INTERFACE 


© Control & monitor your home — appliances, lights & 


ost any device 
ital Converters 


'erform automated testing 
‘quite data for laboratory & other instrumentation, 


Don't make the mistake of buying a limited capability 
interface, Investigate our universally applicable Dual 
6522 Versatile Interface Adapter (VIA) Board, which 
plugs into the expansion connector and provides: 
Four 8-bit fully bidirectional YO ports & eight hand. 
shake lines @ Four 16-bit timer/counters @ Full IRQ 
interrupt capability © Four convenient 16-pin DIP 
socket interface connections @ Expandability up to 
out boards & sixteen ports 
ORDER NOW! Price $169, postpaid USA. Extensive 
documentation included. Each additional board $149. 


COMMODORE 64™ 
SOURCE CODE! 


“What's Really Inside the 
Commodore 64” 





© Most complete available reconstr 
guage source code for the C-64 
ROMs, all 16K. © You will fully and calls to 
undoctimented ROM routines, and be able toeffectively 
use them in your own programs, # U; 

mere one-line disassembly, All bra 
routine entry points are shown, # TA\ 

sorted out and derived, # Completely cor 

{taps whatsoever, You will see and unders 

pose of every routine and every line of code! © Com. 
plete listing of equates to external label references. © 
Invaluable fully cross-referenced symbol table: 

Order C-64 Source. $29.95 postpaid USA 





All orders shipped from stock within 24 
hours via UPS. VISA/MasterCard wel- 
comed. 


SCHNEDLER SYSTEMS 


1501 N. Ivanhoe, Dept. G-9 , Arlington, VA 22205 
Information’ Telephone Orders (703) 237-4796 
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Fred D'Ignazio 
Associate Editor 


Since I was a child I have been fas- 
cinated with learning. Learning, to 
me, has never meant the mindless 
accumulation of facts, Instead, it 
has meant the careful acquisition of 
thinking and communication 
skills—much in the way a back- 
packer shops for durable light- 
weight supplies that fit him just 
right, and that he can carry with 
him and use when he is on his own 
in the wilderness. 

The microcomputer offers us a 
chance to become active learners. 
As Bill Higginson of MIT and 
Queens College has said, we can 
use microcomputers to build a cur- 
riculum around us. Instead of fol- 
lowing a top-down curriculum of 
learning that has been mandated by 
society for all learners, we can start 
from the bottom and build our own 
curriculum, based on our own 
unique gifts, genius, needs, and de- 
sires. What do we have a special 
knack for? Whatever it is, it should 
be in our curriculum. What are our 
obsessions, our passions in life? 
These too should be in our cur- 
riculum. 


Playing Dress-Up With 
Powerful Ideas 

Almost everything we encounter in 
life can be seen as a problem. But 
we don’t have to see problems as 
pranksters and villains waiting to 
ambush us, trip us up, and spoil our 
fun. Instead we can adopt a playful 
approach to solving problems, and 
microcomputers can help us de- 
velop this approach. 

There is no single failsafe 
problem-solving style. Instead 
there are many styles, and it’s help- 
ful to experiment with as many as 
possible. I liken this experimenta- 
tion to playing ‘‘dress up.” Just as 
young children love to dress up in 
all sorts of colorful, oversized, and 
outlandish clothes, we should play 
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dress-up with powerful ideas and 
problem-solving styles. We should 
put them on, try them out, and see 
how they “fit.” This" playful ap- 
proach can turn problem-solving 
from a chore into a game. And it 
can give us the momentum and 
self-confidence we'll need when we 
come up against the many nasty, 
thorny problems that life throws 
our way. 


The Computer Sandbox 

The computer is like a sandbox, a 
playful environment where we can 
confront all sorts of problems and 
try on all sorts of problem-solving 
styles and never get hurt. It’s all 
make-believe, so it’s safe to go any- 
where and say and do the most out- 
rageous things. We can use the 
computer to learn cause-and-effect 
and responsibility for our decisions, 
but we can also experience the free- 
dom to experiment and be creative. 

There’s lots of good “sandbox” 
software for the Commodore 64. 
Some of the best comes from Sun- 
burst Communications. Sunburst’s 
rich assortment of over three dozen 
Commodore 64 programs (includ- 
ing Memory Castle, The Incredible 
Laboratory, The Pond, The Factory, 
The King’s Rule, and Teddy's Play- 
ground) create environments in 
which children of all ages can learn 
powerful problem-solving styles by 
making important decisions in 
make-believe worlds, 

Lou Roberts, of EPIE (the 
Educational Products Information 
Exchange) has said that the 
computer's power comes from let- 
ting you learn powerful ideas, not 
through abstract theory, formulas, 
or descriptions, but through 
experiencing the ideas in a make- 
believe setting. For example, a child 
can learn advanced strategies of 
pattern recognition while she navi- 
gates a frog through an array of lily- 
pads (in The Pond). She can master 
techniques to strengthen her se- 
quential memory while she tries to 











In Search Of 
The Computer Sandbox 
Part 1 


find her way through a mazelike 
castle (in Memory Castle). She can 
practice methods of hypothesis 
generation and testing while she 
plays mad scientist and builds 
monsters (in The Incredible 
Laboratory). 





Building monsters in The Incredible 
Laboratory. 


In my May column, I wrote 
that one of real-life software’s nec- 
essary ingredients is a hefty man- 
ual. The manual doesn’t describe 
how to use the software, since real- 
life software should be easy to use 
and self-explanatory. Rather it 
should be an introduction to the 
skills and knowledge that the soft- 
ware is teaching and a resource 
book full of activities, All of the 
Sunburst programs come with this 
kind of manual. 

Next month we'll look at a 
checklist to help evaluate computer 
programs and activities and see if 
they're up to sandbox standards. 
We'll also see how to turn your 
computer into a computer sandbox 
using software you already own, 

(For more information on Sun- 
burst software, write: Sunburst 
Communications, 39 Washington 
Avenue, Pleasantville, NY 10570. Or 
call 800-431-1934 or 914-769-5030 
for a free catalog. You might also ask 
about their free videotape (either Beta 
or VHS format) on problem solving: 
“Bears, Monsters, and Frogs.” It’s a 
good introduction to teaching prob- 
lem solving and to the educational 
philosophy of Sunburst.) @ 








Weather Prophet 


George W. Miller, Assistant Technical Editor 


We all look at the forecast to see whether we 
should go on a picnic or stay home to read a 
book, or carry an umbrella or put on a short- 
sleeved shirt. This program for the 64 and Plus/4 
can give you a pretty reliable idea of what 
weather to expect in the next day or two. It could 
also make a good school project. A disk drive is 


required. 


Everyone talks about the weather; 
it’s one of the safest topics to dis- 
cuss. You can’t argue with some- 
body who says ‘’Beautiful day 
we're having.’’ With ‘Weather 
Prophet,” when you make a new 
acquaintance at a social gathering 
and the weather comes up, you can 
say ‘‘My computer is predicting 
rain,” or “I think the forecast is 
wrong, my computer says it will be 
sunny.” 

You'll have to keep some 
records, of course. Ideally, you 
should load and run the program 
every day and spend a few minutes 
to update the weather files. The 
payoff is that as your weather data- 
base grows, your forecast becomes 
more accurate, 

After entering the necessary 
information (temperature, humid- 
ity, wind speed and direction, and 
so on), you're given a short forecast. 
In addition, Weather Prophet looks 
back into the database for similar 
weather. It reminds you of what 
happened for several days after the 
last occurrence of any similar con- 
ditions, allowing you to better eval- 
uate the short-range forecast 
generated by the program. 

Weather Prophet tells you 
what the normal high and low tem- 





perature and rainfall or snowfall 
amounts for your area should be, 
and keeps track of the cumulative 
amounts of rain and snow, for you 
to compare against the average. 
Weather Prophet will also calculate 
the ‘‘heating and cooling degree 
days,” so you'll know what to ex- 
pect on your utility bills. It can even 
generate a monthly summary re- 
port. You choose whether all of this 
information is printed on the screen 
or a printer. 

Professional weather forecast- 
ing services such as Accuweather 
and the National Weather Service 
have access to millions of dollars 
worth of state-of-the-art equip- 
ment, and they still have problems 
giving a reliable forecast. How can 
a BASIC program hope to emulate 
the mainframe computers used by 
these services? 

During our testing period, 
Weather Prophet maintained an ac- 
curacy rating of over 98 percent. 
That's surprising, considering that 
the information needed to generate 
the forecast is very easy for anyone 
to obtain. 


Predicting, Not Guessing 
It’s been said that to predict the 
weather, all you have to say is that 





tomorrow will be pretty much like 
today, and you'll be right more 
often than not, But 50 percent accu- 
racy isn’t a very good average. Or 
you could memorize weather folk- 
lore, such as red sky at morning, sail- 
ors take warning; red sky at night, 
sailor's delight. Some of these 
sayings are remarkably accurate, al- 
though they may be true only in 
certain areas. 

Meteorologists have deter- 
mined that three factors greatly in- 
fluence local climatic conditions: 
barometric pressure, the rate of 
change of the barometer, and the 
wind direction, 

In the northern hemisphere, 
the winds of a low pressure cell 
(also known as a cyclone) rotate ina 
counter-clockwise direction. A high 
pressure system (or anti-cyclone) 
has winds rotating in a clockwise 
direction. If you were to face into 
the wind, a low pressure cell would 
generally be located to your right, 
and an area of high pressure would 
exist somewhere to your left. 
Weather Prophet uses this knowl- 
edge to decide which type of 
weather system is influencing your 
local climatic pattern. 

The rate of change of the baro- 
metric pressure helps determine 
how quickly a weather system is 
approaching and what type of sys- 
tem it is. A low pressure system 
usually brings in clouds and bad 
weather, while high pressure is 
usually accompanied by clear skies 
and fair weather. The barometric 
pressure reading determines how 
strong the approaching system is. 

You can gather this infor- 
mation yourself very easily. Barom- 
eters can be purchased at most 
hardware stores. You can use a 
weather vane to judge the direction 
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of the wind or just observe the 
smoke from a chimney. Go outside 
and face north. East will be on your 
right hand, south is behind you, 
and west is to your left. You can 
easily decide which direction the 
wind is coming from. 

As you gather data to develop 
your own historical file of local 
climatological data, you'll need 
information about the wind speed, 
too. This can be estimated quite ac- 
curately, using this table: 


ESTIMATED WIND SPEED 





Wind Speed Observed Effect 
(mph) 
0-1 calm, smoke rises 


vertically 


1-3 direction seen in smoke, 
but not in a weather 
vane 

4-7 leaves rustle 

8-2 leaves and small twigs 
move 

13-18 small branches move 

19-24 small trees sway 

25-31 large branches move 

32-38 ‘trees sway, walking into 
the wind is difficult 

39-46 twigs break off trees, 
cars veer on road 

47-54 roof slates may blow. 
away 

55-63 trees are uprooted 

64-72 widespread damage 
apparent 

73 and up hurricane winds 


You'll need the daily high and 
low temperatures, relative humid- 
ity, and the amount of precipitation 
as well. This can be obtained from 
newspapers, the news on tele- 
vision, or from NOAA (National 
Oceanic and Atmospheric Admin- 
istration) Radio broadcasts. In most 
areas this public service band radio 
station broadcasts a continuous 
weather forecast from the National 
Weather Service, and, usually be- 
tween 7:00 and 9:00 a.m. and again 
between 6:00 and 9:00 p.m., broad- 
casts a weather summary for the 
preceding day which includes all 
the information you'll need. 

Of course, it would be more 
fun to collect the information your- 
self and make your data truly 
unique to your specific location. 
Rain gauges may be purchased at 
many stores, or you can make your 
own with a coffee can and a ruler. 
Your barometer may have a gauge 
for relative humidity built into it, al- 
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though this can be influenced by its 
location and may not give a true in- 
dication of the actual relative 
humidity. To measure the high and 
low temperatures yourself, you'll 
need a Mini-Max Thermometer, 
which indicates temperature 
extremes. 


Typing In Weather Prophet 


Enter the program carefully using 
“The Automatic Proofreader,” (pub- 
lished frequently in the GAZETTE). 
Lines 10-40 allow you to set the 
screen and border colors for your 
computer. If you're using a 64, de- 
lete the REM in line 20 when you're 
ready to save Weather Prophet. For 
the Plus/4, delete the REM in line 
40. All other program lines are the 
same for both computers. 


You'll have to customize 
Weather Prophet to display the lo- 
cal normal high and low tem- 
peratures, and rainfall and snowfall 
amounts for your area. Weather 
Prophet currently holds the normal 
conditions for Greensboro, North 
Carolina. 

This weather information is 
available from several sources. 
Many almanacs list highs, lows, 
and precipitation. You could also 
check with your local newspaper or 
television station. The best source 
for climatological data is the 
National Oceanic and Atmospheric 
Administration: 


NOAA 

National Environmental Satellite, 
Data, and Information Service 

National Climatic Data Center 

Federal Building 

Asheville, NC 28801 


Request a copy of “‘Local 
Climatological Data, Annual Sum- 
mary with Comparative Data” for 
your area. 

When you have the infor- 
mation, change the DATA state- 
ments in lines 3400 and 3410 to the 
values for the monthly high tem- 
peratures in your area. Lines 3430 
and 3440 should be changed to the 
average monthly low temperatures, 
Finally, lines 3460 and 3470 will 
contain average monthly precipita- 
tion, and line 3490 will be average 
monthly snowfall. 

The values for each category 
begin with January for the first 
value and are entered in order 








through December. 

If you’re not using a Com- 
modore printer, it may be necessary 
to change the commands to send 
information to your printer. All 
that’s necessary is to enter the 
proper commands in lines 140 and 
150. Be sure to include a RETURN 
command at the end of each line 
because these are subroutines. 


Carefully enter the program 
exactly as listed with the exceptions 
of your customized DATA state- 
ments and printer commands. 
Weather Prophet uses relative files, 
and the syntax must be exact. 


Putting Weather Prophet To 
Work 


Load and run Weather Prophet. Be 
sure to leave the disk which con- 
tains Weather Prophet and your 
data files in the disk drive at all 
times. The program checks the disk 
for information frequently as it 
runs. 
You first see the main menu. If 
you have a printer connected and 
would like a printout of any infor- 
mation from Weather Prophet, en- 
ter 0 to enable output to the printer. 
The screen will clear for a second, 
then return, but will now indicate 
that the printer is on. Be sure your 
printer is turned on before you use 
this option, You can turn off the 
printer by entering 0 again. The dis- 
play will indicate the printer is off. 


The more you use the program 
and accumulate information, the 
more intelligent Weather Prophet 
becomes. Try to collect and enter 
data at the same time each day. 
This will help the program main- 
tain some degree of consistency as 
it evaluates the data. 

First, tell the program about 
the day’s weather. Press 1 to begin 
entering the data. You'll be 
prompted for the date, in month, 
day, and year format. Separate each 
entry with a comma. (For example, 
July 4, 1985 would be 7,4,85.) 


Have the information you 
gathered on hand. Answer the 
prompts as they appear. If you mis- 
type an entry, press RETURN until 
you reach the end of the data entry 
routine. The information you typed 
is displayed on the screen or 
printer, and you'll be asked if it’s 
correct. Answer no if you’ve made a 











mistake and you'll return to the 
beginning of the routine, with no 
harm done. Data must then be 
retyped. 


Describe the cloud cover as a 
number between 0 and 100 percent, 
which represents the amount of the 
sky obscured by clouds, On a to- 
tally overcast day, for example, the 
cloud cover would be 100 percent. 


The comment line is for your 
notes about the weather (fair, partly 
cloudy, rain, and so on). Any com- 
ments are OK, but be sure not to use 
commas. 

When you've finished, the 
information you typed is displayed 
on the screen, along with the nor- 
mal high and low temperatures for 
the month, rainfall and snowfall 
amounts, and heating or cooling 
degree days. A cumulative total is 
also displayed. 


Next, the data is stored on the 
disk and Weather Prophet searches 
for similar conditions in the file and 
generates a short term forecast. It 
only attempts to forecast for the pe- 
riod during which it has a reason- 
ably reliable forecast. This may 
cover between 12 and 72 hours. 


Press any key to continue be- 
yond the forecast. If any data simi- 
lar to previous weather data is 
found, it is displayed, and the fore- 
cast conditions from that situation 
are shown. Use this historical 
record to evaluate the current 
forecast. 


At times you may want a new 
forecast but don’t want to store the 
information in the file, especially 
when weather conditions are 
changing rapidly. To generate a 
forecast, enter 2 from the main 
menu, and follow the prompts to 
enter barometric pressure, rate of 
change of the barometer, and wind 
direction. A forecast will be dis- 
played, and the disk will be read in 
a search for similar conditions, as in 
data entry mode. No information 
will be stored on your disk. 

Option 3, Search Data, allows 
you to review and analyze the 
information already stored. The 
program asks if you want to search 
by fields or for a specific record 
number. If you wish to look at a 
specific day and happen to know 
the record number, this is the 
quickest search. Press R and answer 
the next prompt with the number of 





the record. This is handy when 
you're updating a file with several 
days’ data after being away for a 
long weekend and can’t remember 
whether you entered data on Friday 
evening. Just search for the last 
record number, and see what that 
entry holds. 

Enter F to search by field, and 
you can choose to search for a spe- 
cific date, generate a monthly re- 
port, or return to the main menu. 
To search for a specific date, enter 
the date (in month, day, year for- 
mat), and the program will search 
for the record for that date. 


Generating a monthly report is 
where Weather Prophet can really 
show off, It takes several minutes to 
sort through the data, primarily be- 
cause of the slow speed of the 1541 
disk drive. The program lists the ex- 
treme conditions for the month you 
selected: highest temperature, low- 
est temperature, days with rain, 
and so on. 

If you'd like to check how 
many degree days have accu- 
mulated since you've been running 
the program, enter 4 from the main 
menu for the Degree Day Register. 
The value of heating and cooling 
degree days will be displayed, 
along with options to clear each 
register separately, or to return to 
the main menu. 

The Degree Day Register needs 
to be reset once each year. Gen- 
erally, the Heating Degree Day 
Register should be set to 0 in July, 
and the Cooling Degree Day Reg- 
ister to 0 in January. Enter the 
appropriate response and continue 
with the program. 

Option 5 allows a smooth exit 
from the program, without pressing 
the RUN/STOP key. It’s a good 
idea to always use this option to 
end the program, because pressing 
RUN/STOP while the program is 
running could cause the files being 
written to your disk to be damaged. 

Try to take a few minutes every 
day to update the data file. The 
more you use Weather Prophet, the 
more reliable it becomes, Daily up- 
dates are also necessary to keep the 
degree day registers accurate, and 
to develop accurate information for 
a monthly report. You'll find the 
information useful on a day-to-day 
basis. 


See program listing on page 97. @ 





C-G64 SPEECH 
SYNTHESIZER/ 
DIGITAL RECORDER 


Features: 
© Excellent sound quality! Sounds like tapel 
© Full speech synthesizer with unlimited 
vocabulary, 
Record and speak in anyone's voicel 
Includes CV-DELTAMOD RECORDER UNIT. 
HEADSET MIKE, and all software on disk 
{or tape} 
Includes software to be used with optional 
light pen, 
Light pen available for $29.95 
Even records music onto diskl! to be 
played back by your program. 
Comes with demo programs including a 
talking clock. 
Plugs into user port, Connector on back 
allows for other peripherals to remain 
connected, 
Can be played back with or without 
recorder connected. 
© Make (sell?) your own talking programs! 
Send $99.00 for delivery or send $4.00 
(refundable on purchase) for demo 
diskette including free talking alarm 
clock and others! 
ORDER NOW FROM. 
SEYMOR-RADIX 
P.0. BOX 166055 IRVING, TX 75016 


Your 51" single side disks are usable 
‘on the other side, You paid for one 
side, why not use the other... T'S FREE! 

Nibble Notch will open your new 
disk. It’s easy... won't harm existing data. 

SATISFACTION OR MONEY BACK 


nidble notch | 


For Apple, Franklin, Commodore, & 
Atari (w/Atari Drives); square notch, 


ony 4? 


*Add $2 ($5 foreign) for postage & 
ORDER handling Fl residents add 5% sales tax. 


TODAY yout FREE 1-800-642-2536 
FL (305)748-3770 
or send check 
or money order to: 


ened 


computer products 
4211 NW 75th Terrace * Dept 143 
Lauderhill, FL 33319 








Daan Deenik 


If your eyes get tired while checking 
long listings on your screen, this 
program will be a real aid. It high- 
lights the current screen line, mak- 
ing it easier to keep your place 
while scanning the program. Orig- 
inally written for the 64, we've 
added a version for the VIC. 


Everyone who’s written a program 
or typed one in from a magazine 
knows the sinking feeling you get 
when you realize you've made a 
mistake and you'll have to go back 
and check your work. Programs 
which contain long lists of DATA 
statements are especially annoying; 
it’s easy to accidentally check a line 
twice or miss a line here or there. 

Have you ever wanted a ruler 
that would automatically move up 
and down the screen? “QuickScan” 
is just that, a bar that highlights 
screen lines, Just use the cursor 
keys to control the location of the 
highlighter. 


How To Use The Highlighter 
The instructions aren’t com- 
plicated. Type in QuickScan and 
save it to tape or disk. When you 
run it, a short machine language 
program is POKEd into memory 
and a message (describing how to 
start it) is printed on the screen. To 
enable the 64 version, type 
SYS49152. The VIC version runs 
with or without memory expan- 
sion, and is enabled by SYS679. 
The ML program is loaded into 
RAM by a BASIC loader. Although 
there is a built-in checksum to help 
in entering the program, accurate 
typing is still required as any mis- 
take could crash the computer. 


Modifying QuickScan 

QuickScan for the 64 uses seven 
multicolor sprites to create the 
highlighting bar. Here are a few 
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“QuickScan” is like a highlighted ruler 
that moves up and down the screen 
WIC display). 


ideas for modifications. 

If you change the zeros in lines 
1001 and 1003 to 255s and run the 
program again, you'll see a bar 
three lines high. The upper and 
lower parts of the bar are the same 
color as the characters on the 
screen, so you won't be able to see 
them. But the middle part is visible. 

You can change the color of the 
middle part by POKEing 53285 
with a number from 0 to 15. You 
can split the bar by giving the first 
four sprites low and the other three 
high priority (POKE 53275,15). 
This might come in handy with 
question and answer programs. 


The VIC Version 

Since the VIC doesn’t have sprites 
or raster interrupts, a different tech- 
nique was used to create the bar in 
the background. The computer 
checks for the position of the cursor 
and calculates how long it will take 
until that line will be printed. It 
then quickly changes the color of 
the screen and border to the second 
color and back again to the first. 
Since the program has to wait until 
the time is right, everything runs a 
little slower, especially when the 
cursor is near the bottom of the 
screen. 

You can change the color of 
the border and background (even 
change the line to reverse charac- 
ters) by POKEing a number from 








QuickScan 





FRAME sve oise to nervat 





It’s especially helpful for debugging 
DATA statements (64 screen). 


0-255 into location 719 (POKE 
719,x where x is a number from 0 to 
255). The user’s manual contains a 
complete list of screen/border color 
combinations. 

See program listings on page 101. @ 









Copies of articles 
from this publication 
are now available 
from the UMI Article 
Clearinghouse. 


Yes! I would like to know more about UMI Article Clear 
inghouse. | am interested in electronic 
ordering through the following system(s): 
1 DALOGMialorder ITT Diaicom 
DOntyme OCLC ILL Subsystem 
Other (please specify. 
sm interested in sending my order by mail 
1 Please send me your current catalog and user instruc 
tions for the systems) I checked above, 











a 
a 
Institution Company. 

Departmen 

Address 

Cra ees Zip. 

Phone (_——}. 


UMA 
crag: ouse 


Mail to: University Microfilms International 
300 North Zeeb Road, Box $1 Ann Arbor, MI 48106 





machine language 


beginners 


Richard Mansfield 
Senior Editor 


This month we're going to create a 
kind of bridge between machine 
language (ML) and BASIC and, 
along the way, learn some new 
techniques which help manipulate 
data in ML. 

Frequently, you'll see program 
listings like “‘Datastuffer” (Program 
2). Sometimes that’s all there is; at 
other times this mass of DATA 
statements is part of a larger BASIC 
program. However, in both cases, 
the data mass is actually a machine 
language program waiting to be 
brought to life. The user doesn’t 
need to know anything about ML to 
type RUN and let Program 2 POKE 
all those numbers into RAM. When 
the numbers are in RAM, they com- 
prise an ML program and the user 
can type SYS 49152 to activate it. 


BASIC Builder 

But how, if you've written an ML 
program, do you transform it into 
DATA statements? You could PEEK 
every location in your ML program 
and write down each number and 
then type them all into DATA state- 
ments, There are easier ways, how- 
ever, Both COMPUTE! and the 
GAZETTE have published BASIC 
utilities, called DATAmakers, 
which do this job for you. This 
month, however, let’s make an ML 
utility which asks for the start and 
end address of an ML program, and 
then rapidly builds a BASIC pro- 
gram like Program 2, complete with 
line numbers, DATA commands, 
commas, and, of course, all the 
numbers. 

Program 1 does just that. It’s a 
program which creates another 
program, a BASIC program. This is 
the 64 version, but the only adjust- 
ments you need to make for the 
VIC (with at least 16K expansion) 
are indicated in lines 100-220. The 
complete version of Program 1 will 
work as is on the LADS Assembler 





from my Second Book of Machine 
Language. Other assemblers will re- 
quire some minor modifications. 
Program 1 will be presented next 
month also; this month, however, 
we'll discuss only through line 225. 

Line 100 tells LADS that the 
program is to start at address $C000 
(49152 in decimal). Line 110 tells it 
to actually store the program in 
memory. That’s one option. You 
could also store it to disk and leave 
memory untouched. 

Next there is a series of label 
assignments, All this means is that 
we're going to give names to some 
important locations in memory that 
we'll be using in the program. 
Then, when we want to access 
them, we don’t need to remember 
any numbers—we can just use the 
names. 


Two Fingers 

Nevertheless, by understanding 
what these labels do, we'll pretty 
much understand the way the en- 
tire program works. So this month 
let’s discuss each label; next month 
we'll look at the program proper. 

First: what is the main goal of 
this program; what's it basically 
trying to accomplish? Essentially, 
we'll be moving a series of numbers 
(our ML program) from one place in 
RAM to another, from the location 
of the ML program down to the 
lower RAM where BASIC programs 
go. As with any large-scale moving 
job, we've got to keep track of 
where we are, within both the 
source and the target of the move. 
The computer does things one at a 
time. So, to move a chunk of mem- 
ory, we'll pick up the first byte from 
the source zone, put it down in the 
target zone, pick up the second byte 
from the source zone, etc., until all 
the bytes are copied. 

To do this, we’ve got to know, 
while the program executes, where 
we are in two places at once (the 
source zone and the target zone). 





From Machine Language 


To BASIC 


We'll have to create two “fingers” 
which will always point to our cur- 
rent positions in memory. One fin- 
ger will point at our location within 
the ML program being moved; the 
other finger will point at our loca- 
tion within the BASIC program be- 
ing built. (In ML parlance these 
fingers are, perhaps with greater 
dignity, called pointers.) 

A pointer is a two-byte area in 
RAM somewhere and it’s up to us 
to decide where. It should be lo- 
cated somewhere within the first 
256 bytes because that lets us use 
the Indirect Y addressing mode, 
which is an easy way to access 
whole chunks of memory at once, 
The computer likes to use the first 
256 bytes too (and for the same rea- 
son), but there are some safe places 
between $A3 (163 decimal) and 
$B1 (177), so we'll put our pointers 
in that area of memory. 

In line 150, we assign the label 
PF to address $A3. You could give it 
any label you prefer, as long as 
that’s the way you refer to it 
throughout the rest of the program. 
PF will be the finger pointing at the 
current (while the program is 
executing) location within the 
BASIC program we're creating. 


What BASIC Looks Like 
Line 170 defines, with the label PC, 
the other finger, the one pointing to 
within the ML program. Line 160 
takes care of a housekeeping func- 
tion for the BASIC program we'll be 
building. The figure illustrates what 
a BASIC program looks like in RAM. 
A BASIC program always 
starts with a 0, each line ends with a 
0, and the end of the whole pro- 
gram is signified by 0 0 0. The first 
byte (at address $0800 in the ex- 
ample line above) is a 0. Then the 
next two bytes form a pointer to the 
start of the second line in the BASIC 
program which is located at address 
$080B. As you can see, the com- 
puter expects pointers to be in re- 
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A BASIC Program’s Structure 


Nothing Is Pointed To Now 








f vi y 
0 POINTER | LINE # | BASIC CODE | 0 rower] uine # [2no BASIC LINE| 0/0} 0 





1 
Start of 
BASIC 


10 PRINT“HI" 
20 END 


(address in RAM) 

(actual bytes) 

(ine of BASIC) 
10 


D 
End of Line 


0800 
00 0B 08 0A 00 99 22 48 49 22 00 11 08 14 00 80 00 00 00 
LINE ? “HI” 


Program 
Ends 


0808 0811 


LINE END. 
20 





versed order so that the pointer 0B 
08 is, really, referring to address 
$080B. In any case, we'll need to 
keep track of the proper location for 
each of these pointers as we build 
our BASIC program. They’ve got to 
be there or BASIC won't be able to 
LIST or RUN the program. So we'll 
keep them in the location defined in 
line 160, LINELINK. 

The variable defined in line 
180 will hold the address where the 
ML program ends, so we'll know 
when we've finished our job. The 
user provides this address along 
with the starting address (which 
will be stored in PC) before the pro- 
gram is activated. 

Line 200 names a routine we're 
calling INTAFP which is located in 
BASIC ROM and which we'll want 
to use. It translates an integer num- 
ber (like 3) into a floating point 
number (3.0000, the same thing, 
but with a decimal point). Normally 
this routine is used by BASIC, but 
we can use it too, 


Numbers As Characters 
Line 210 defines INTASCII as an- 
other built-in ROM routine which 








Program 1: Datastuffer—Source Code 


takes a floating point number and 
turns it into the ASCII code. The 
number 25 can take the form of a 
single-byte true number (when you 
POKE 500,25 you're storing the real 
number 25 in location 500). How- 
ever, when you type a BASIC pro- 
gram in, you are using the ASCII 
code of numbers. ASCII numbers 
are characters, not real numbers; it’s) 
as if the characters “2 5’ were in 
quotes. In an ML program in mem- 
ory, each byte holds a true number, 
but in a BASIC DATA statement, 
the string of numbers are in the 
ASCII code. So, we’ve got to bor- 
row these routines from ROM 
which transform the real numbers 
which comprise the ML program 
into the “character code’’ numbers 
which make up a BASIC program. 

Line 215 defines the place we 
can jump to within ROM which will 
gracefully end our ML program, 
landing us back in BASIC mode 
without damaging anything. Line 
220 shows where BASIC programs 
start in RAM and, thus, where we 
will start building our DATA mass. 
Finally, VARS in line 225 is defined 
as the pointer BASIC uses to tell 





where a BASIC program ends in 
memory and where variables be- 
gin. We'll need to adjust this point- 
er when we're all finished so the 
computer doesn’t think our newly 
created program is larger or smaller 
than it actually is. 

Now that we've defined all of 
our special routines and pointers, 
we are ready to go ahead and put 
them together to create the ML pro- 
gram, “Datastuffer.”” Next month 
we'll explore the internal structure 
of the program itself, but you can 
still play around with the utility, 
Type in Program 2 (Program 3 for 
the VIC) and just run it. You'll end 
up with a runnable ML program 
which will create a BASIC DATA 
mass, Even a mass of itself. 

Program 4 is necessary. It’s a 
little BASIC program which asks for 
the start and end addresses of your 
ML program and POKEs them into 
the pointers. You could do these 
things in ML, but the resulting pro- 
gram would be a bit too large to use 
as an example in this column. 

Here's how to use Datastuffer: 

Load and run Program 2 (for 
the 64), or Program 3 (for the VIC). 
Load the ML program you want to 
transform into BASIC DATA state- 
ments (make sure it doesn’t load 
into the area 49152-49361 in the 
64, or 20480-20689 in the VIC). 
Type NEW. Load and run STUF- 
FERBAS (Program 4). That's it. 
STUFFERBAS will be overwritten 
by your new BASIC program. 

When Datastuffer has finished, 
you can LIST the new program it 
has created, You'll have to add the 
FOR-NEXT loop that POKEs the 
ML program into memory. Finally, 
save the program to tape or disk, 


See program listings on page 93. 
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II FORMAT ($DDDD VIC) 
160 *= $008; = ($5808 VIC) 215 WARM = $E37B; ($E467 VIC) 
118.0 228 BASIC = $0800; WHERE BASIC STARTS I 
120 ; 64 VERSION DATASTUFFER N RAM ($1260 EXPANDED VIC) 
130 ;----LABEL DEFINITIONS----------- 225 VARS = 45; WHERE BASIC TEXT ENDS. 
148 ; 238 ; 
150 PF = $A3; CURRENT POSITION WITHIN BAS | 248 ;----PRELIMINARIES--------------- 
IC PROGRAM BEING CREATED 250 + 
160 LINELINK = $A5; HOLDER FOR POINTER 270 LDA #<BASIC:STA PF:LDA #>BASIC:STA PF 
{SPACE)IN BASIC ADDRESS +1; SET UP START OF BASIC 
176 PC = $A7; CURRENT POSITION WITHIN T | 280 LDA #$5@:STA LINENUM:LDA #$C3:STA LIN 
HE ML TO BE FIXED ENUM+1; START AT LINE 50800 
186 EADDR = $A9; HOLDER FOR TOP OF ML PRO | 298 LDA #0:STA COUNTER 
GRAM BEING CONVERTED 300 TAY:STA (PF),Y; PUT ZERO BYTE (AT STA 
200 INTAFP = $B391; TRANSLATES INTEGER TO RT OF BASIC) 
FP FORMAT ($D391 VIC) 310 INC PF; ADJUST POINTER TO JUST PAST @ 
210 INTASCII = $BDDD; TRANSLATES FP TO ASC BYTE 





328 


530 
540 
558 





CONVERSE WITH 
YOUR COMPUTER 


AT LAST A FULL IMPLEMENTATION ct ther 


het to do more 
‘SOURCE PROGRAM for only $2: 
‘Order your copy of ELIZA today and you'll never again wonder how 
computer of yours can actually do!” 

READ WHAT THE EXPERTS SAY ABOUT OUR VERSION OF ELIZA: 


‘Much more than am 
ELIZA... Aconvincing demonstration of 


‘ELIZA Is a great way to Introduce your friends 
very funny party game” 


IZAis 
your machine, and| 


(Protected Version can be run but natlisted or modified} 


2. Un-prot 
(Source 


Both versions include: 


Please add $2.00 shipping and handling to all orders 
(Caltomia residents please acd 6% sales tax) 


ARTIFICIAL INTELLIGENCE RESEARCH GROUP 


MMT fn 1946, ELZA has becone the workés sost 


336 ;* STORE LINE NUMBER AND DATA TOKEN 

348 ; 

35@ NEXTLINE INY:INY; RAISE PF BY 2 TO GO 
PAST LINK 

360 LDA LINENUM:STA (PF),¥; STORE LINE NU 
MBER LOW BYTE 

37@ INY:LDA LINENUM+1:STA (PF),Y; STORE L 
INE NUMBER HIGH BYTE 

388 CLC:LDA LINENUM:ADC #19:STA LINENUM; 
{SPACE}RAISE LINE NUMBER BY 18 

398 LDA LINENUM+1:ADC #8:STA LINENUM+1 

400 INY:LDA #$83:STA (PF),Y:INY; STORE DA 
TA TOKEN 

410 ; 

420 ;* TRANSLATE ML PROG. BYTE INTO ASCI 
I CHARS. 

430 ; 

449 DOMORE STY Y;SAVE Y 

45@ LDY #0:LDA (PC),Y¥:TAY; GET BYTE OF M 
L 

460 LDA #0; SET UP FOR ROM ROUTINES 

476 JSR INTAFP:JSR INTASCII; TURN ML # IN 
TO ASCII 

480 LDX #1:LDY Y:LOOP LDA $100,X:BEQ MORE 
STA (PF),Y¥:INY:INX:JMP LOOP 

490 ; 

588 ;* STORE COMMA, RAISE ML PROG. POINT 
ER 

510 ; 

528 MORE INC COUNTER 


LDA #$2C:STA (PF),Y¥:INY; STORE A COMM 
A 


INC PC:BNE GOON:INC PC+1; 
INTER 

GOON LDA COUNTER:CMP #10:BEQ NEWLINE: 
JMP DOMORE; ONLY ALLOW 16 DATA ITEMS 


RAISE ML PO 


1 ELIZA pro: 
union your Commodor 


ritcialintelugence Cemonstration program ELIZA'sa 
who analyzes each statemert as Beat The Pants OF 





\aditionat 


ymeone say, "Okay, let's see what his 


game...You'll be impressed with 


3 Inteligence: 
PC MAGAZINE 


a1 medium for ahowing olf your 
JOCOMPUTING MAGAZINE 


seinating progr 
BARON'S MICH ITER REPORTS 


s to computers... 
PETER A McWILLIAMS 


{xcepiona program, one that’s tun use, shows ot 


—HOME APPLICATIONS FOR THE C-64 


‘BLE IM THE FOLLOWING FORMATS: 
pecity Disk or Cassette) 


‘Commodore 64 BASIC Source Version 
F8ion can be listed and modified. 


2721 OMIO STREET 


Jolla Averue, Dept 





Los Ang 
(213) 656.7968 (213)654-2214 
MC, VISA and checks accepted 





ve mevsteo at 


ACORN OF INDIANA, INC 


MICHIGAN CITY, IN. 48360 


Mutual Funds 


LOTTO CIPHER. 
CAT THE BEST 0008 ON ANY LOTTERY 
SIL NUWBER FICK FOUR ~ DALY CAME 


i PREPARE FOR A NEW LINE OF DATA 


NEWLINE DEY:LDA #8:STA (PF),Y:STA COU 
NTER; STORE END OF LINE @/FIX COUNTER 


LDA PF:STA LINELINK:LDA PF+1:STA LINE 
LINK+1; SAVE LINK ADDR 
INY:STY Y:CLC:LDA PF:ADC Y:STA PF 


LDA #8:ADC PF+1; ADD Y OFFSET TO 
CURRENT BASIC PROG POINTER 

STA PF+1 

} *PF NOW POINTS TO THE LINE LINK OF 
FOLLOWING LINE 

3 *SO PUNCH LINELINK POINTER INTO BA 
sIc 

LDY #1:STA (LINELINK),Y:DEY:LDA PF:ST 
A (LINELINK),Y 


7* SEE IF WE'RE AT THE TOP OF THE ML 
SEC:LDA EADDR:SBC PC:STA 2:LDA EADDR+ 
1:SBC PC+tl:ORA 2 

BCS BACK:LDA #@:DEY:STA (PF),Y 
INY:STA (PF),Y:INY:STA (PF),Y 
SEC:TYA:ADC PF:STA VARS:LDA #0:ADC PF 
+1:STA VARS+1:JMP WARM; END PROG. 
BACK JMP NEXTLINE; CONTINUE WITH NE 
XT LINE OF BASIC 





t----STORAGE & DATA TABLES---------- 
LINENUM .BYTE 0 6; HOLDS CURRENT LINE 
NUMBER 

Y .BYTE @; 
OR Y 
COUNTER .BYTE @; KEEPS COUNT OF DAT 
A STATEMENTS PER BASIC LINE @ 


DUST COVERS 


%& CUSTOM MADE TO FIT 
*& Heavy 32-07. VINYL ANTI-STATIC 
%& EXTENDS EQUIPMENT LIFE 
%* Choice of Colors Lt. Tan or Brown 
COMPUTERS 

C-64; VIC-20; C-16; PLUS 4. 

C-128; 121 _ 

DATASETTE (NEW, C2N) 
DISK DRIVES 

C1541; C-1571 INDUS GT 

MSO S/D; APP! 

MSD D/D; APPLE D/D UNIT 
PRINTERS 


TEMPORARY HOLDING PLACE F 


$49.95 C04 DISK 


So000 


sssas3sess 


X-P1O 
EPSON MX /RX/FX 80. 
GEMINI 10 & STAR 


J 00 
OKIMATE 10 
MONITORS 


$,1792/1703; ¢-1902 RGBI 
ZENITH ZVM 122/12: 


) 

Order by stating NAME and MODE! 

and COLOR CHOICE TAN oF BROWN oe 
Enciote check of money order plus $1.50 


Bei lem (4.50 max.) shipping, and handling 


slitornia ‘Res. Include "6.5 %q Sales Tax, 


SPECIAL COVERS WILL BE MADE TO YOUR 
DIMENSIONED SKETCH. SEND YOUR RE- 
QUIREMENTS FOR OUR LOW PRICE QUOTES 


Crown Custom Covers 


9606 SHELLYFIELD ROAD Dept. A 
OWNEY, CA 90240 


(213) 262.8391 











Printer Wedge 


customized graphics, 


The Commodore 1525, MPS-801, 
and MPS-803 printers are inexpen- 
sive and generally reliable printers. 
But the printed characters leave 
much to be desired—no de- 
scenders. If you own one of these 
printers, you know how difficult it 
is to discern the difference between 
a lowercase and capital “P’’ or a 
lowercase “’g’’ and the number “9.” 
This program, ‘Printer Wedge,’’ 
lets you define a new character 
set—including true descenders or 
foreign language characters. 

The program is written in 
BASIC, but it POKEs a machine 
language ‘‘wedge’’ into memory. 
You don’t have to know machine 
language to make it work, however. 
The wedge prints the user-defined 
characters in conjunction with 
many programs, including 
SpeedScript. 

Printer Wedge characters can 
be any width from one to ten pixels, 
and any number of characters can 
be created, from one replacement 
character to an entire upper/ 
lowercase font. Also, foreign lan- 
guage character sets can easily be 
defined (within the limits of printer 
resolution). 

The program also has another 
mode which allows substitute 
character strings of up to 40 charac- 
ters. For example, one could specify 
text replacements for LISTed 
graphics symbols (cursor controls, 
colors, etc.), allowing the printing 
of more readable program listings. 
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James Chandler, Jr. 


If you have a 64 and a Commodore 1525, MPS-801, 
or MPS-803 printer, here’s an easy way to create, 
save, and print out your own custom characters. 
With “Printer Wedge,” you can have true de- 
scenders, foreign language character sets, and 


Creating Custom Characters 

When you load and run Printer 
Wedge, you get a character creation 
screen. Characters are created on a 
grid seven high by ten wide. Move 
around the grid using the cursor 
keys, and plot dots with f7. Delete 
dots with f8. When the character is 
complete, assign the character with 
fl, The computer then prompts you 
for the key of the character, Press 
the key representing the character 
and the program appends a DATA 
statement to itself describing that 
character. That character will no 
longer be available to you—it will 
be replaced by the new character 
you've designed. It then loops back 
to the character creation screen. 

When you're through creating 
the characters you wish to use, 
press f2, The program asks for a 
starting address, then POKEs the 
wedge to the specified location. 
You are then given the option of 
sending sample lines to the printer 
so you can inspect the new 
characters. 

If you wish to alter any of the 
characters you've created, run the 
program again and press f2 when 
you finish. Since the character set is 
stored as part of Printer Wedge, you 
can create many character sets and 
save each by its own name, such as 
PWEDGE/ELITE or PWEDGE/ 
SPANISH. 

Create characters starting from 
the left column of the character cre- 
ation grid. When printing, the 





wedge inserts one blank column at 
the right of a user-defined charac- 
ter. This allows proportional spac- 
ing of characters, For replacement 
characters to be in the same seven 
by five format of the 1525, 801, 803 
character set, do not allow two ad- 
jacent blank columns in the first 
five columns of the character cre- 
ation grid. In addition, do not leave 
column five blank. 

To specify characters that can- 
not meet the above requirements, 
calculate the column values as in 
the 1525, 801, or 803 users’ man- 
ual, Append a DATA statement to 
Printer Wedge using the following 
format: 

[line number 3000 + 10 * ASCII] DATA 
[ASCII value of character],[number of 
character columns},[column 1],[column 
Qrmuflast column} 

You can find the ASCII value of a 

character by typing (in immediate 

mode): 

PRINT ASC(“{character]”) 


The line 10000 DATA 0 tells 
Printer Wedge it has read and 
POKEd all characters into memory. 
A replacement character for the 
double quote (SHIFT-2) should 
normally be specified (line 3340). 
Otherwise, printing a double quote 
character causes a graphic 
nightmare. 

I've included three character 
sets as options for you to try. Any of 
these can be appended to Program 
1. Character Set 1 (Program 2) re- 
places the lowercase g, p, and q 
with less ambiguous characters. 
Character Set 2 (Program 3) 
proportionally spaces without de- 
scenders. Character Set 3 (Program 
4) squeezes characters into the top 
six rows, allowing one row for de- 
scenders. Program 5 allows for 
converting graphics symbols to 
text. 








sbodat ahi de lmnop aes tia 
rez 
The standard lowercase character set 


of the 1525, MPS-801, and MPS-803 
printers. 


abcdetahi de imnor ars tins 
Ubeez 


The letters with descenders—g, p, 
and q—are made more readable 
with character set 1. 


abrdet shidkimnomarstiius 


HUE: 


Character set 2 offers more propor- 
tional spacing between letters. 





Character Strings 

Press f3 to assign a string of charac- 
ters to a key. This can be useful ina 
couple of ways. You can make pro- 
gram listings more readable by 
replacing the reverse-heart that 
means “clear the screen” with the 
easier to read string [CLR]. To do 
this, type in the string [CLR] and as- 
sign it to the SHIFT-CLR/HOME 
key (by pressing £3). After entering 
all replacement strings in this man- 
ner, save PWEDGE/LIST. Pro- 
grams can then be listed to disk or 
tape, then read back and printed 
with a short BASIC routine. To do 
this, first open a file to tape or disk, 
then enter CMD (file number):LIST. 
After the file is created, type 
PRINT# (file number):CLOSE (file 
number). To read the file (and list it 
to the printer), open the file for in- 
put, open a line to the printer, use 
GET# to get characters, and 
PRINT*# to send it to the printer, 

SpeedScript allows the use of 
the Commodore key subset of the 
keyboard (left graphics symbols on 
the keys). [Commodore-D] could 
represent “Dear Friends,” [(Com- 
modore-Y] could represent “Yours 
Truly,’’ and so on. This would 
allow automation of the repetitive 
parts of letters or of any document 
form you use frequently. 

If you'd rather not type in the 
program, send $3, a self-addressed 
stamped mailer, and a formatted 
disk or tape to: 

James Chandler, Jr. 

204 California Ave. 

Chattanooga, TN 37415 


See program listings on page 104, @ 











Lawrence Cotton 


In this final installment, the author presents 
six more impressive 64 sound demos. 


Before looking at the last six sound 
programs in this series, it would be 
helpful to review the introductory 
discussion in Part 1, found in the 
July issue. If you missed the first 
two installments, you can still 
benefit from the demos here. 
They're short and can be added to 
your own programs simply by 
renumbering the lines appro- 
priately. You can also omit the RE- 
Marks in each of the demos, Even if 
you don’t wish to use these in your 
own programs, I think you'll be sur- 
prised at some of the ‘‘zounds” 
your 64 is capable of producing. 


In The Ear Of The Beholder 
The first program, “Waveform 23,” 
is only four lines, This waveform, 
largely undocumented, uses sync 
and ring modulation together with 
the triangle waveform. Several of 
the demos in this series use this 
waveform, but this program best 
illustrates its enormous potential. It 
plays only once, so you might add a 
loop to go back to line 10 if you 
wish to study the quality of the 
sound. Try changing the waveform 
(line 20) to a 17 (triangle) or 33 
(sawtooth) or 21 (triangle plus ring 
mod). How blah. But with a 23? 
Listen! 





Program 2, “Hear See Chord,” 
is the longest program in the series. 
It shows how to gradually combine 
three notes produced by indepen- 
dent voices into a chord. The con- 
ventional square waveform (64) is 
used here. 

For a little variety, try Pro- 
gram 3, “Rubber Band In A Drum.” 
This program is unique in two re- 
spects. First, random frequencies 
(F2) are interspersed with a fixed 
frequency, Second, waveform 23 is 
POKEd to turn the sound on (rub- 
ber band), but the noise waveform 
128 is POKEd to turn it off (drum). 

Probably the most unpredict- 
able sound is “Harmonix.” Voices 2 
and 3 are POKEd with waveforms 
21 and 23, respectively, The step 
sizes of —10 and —50 determine 
the harmonics being generated, 
This sound seems to be long 
enough without repetition, 

“Falling Sitar,” Program 5, 
sounds just like its name, It too uses 
a random frequency (F1) super- 
imposed on a gradually decreasing 
frequency (F2) at a gradually 
increasing rate (controlled by Q). 

Last, but certainly not least, is 
“Glissando.’’ How can such a 
sound be produced? Only on the 
Commodore 64, 

See program listings on page 92. @ 
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TinyTerm 
For The 1650 Automodem 


Preston Douglas 


This short telecommunications program automati- 
cally dials the phone numbers of your favorite 
bulletin boards. If the number is busy, it redials 
until it makes a connection. For the 64 or un- 


expanded VIC. 


If you belong to a local bulletin 
board system (BBS), you probably 
know the frustration of reaching a 
busy signal again and again. The 
most popular, most active boards 
can be nearly impossible to reach. 

One night while my 64 and I 
were working hard trying to get 
through to a busy bulletin board, it 
occurred to me that my VIC-20 was 
just sitting there doing nothing. If I 
could program the VIC to do the 
boring job of redialing, I could do 
something more interesting with 
the 64. 

I found ‘‘MiniTerm-20,” a 
terminal program for the VIC, in 
the September 1983 issue of COM- 
PUTE!’s GAZETTE, It was written for 
another type of modem, so I set 
about converting and modifying it 
to work with the 1650. 

Several things had to be 
added. First, the program had to be 
able to redial repeatedly until it de- 
tected a carrier tone (the signal that 
the call has been completed). Sec- 
ond, it had to reject the occasional 
false carrier hits that can happen 
with some busy signals. Third, it 
should sound an alarm to indicate 
to the user that the connection has 
succeeded. Finally, there should be 
a screen display to show that the 
program is getting busy signals and 
is still working. 

“TinyTerm”’ does all four 
things. Plus, it fits into an un- 
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expanded VIC. It’s very short, so it 
doesn’t have extras like upload/ 
download, or file access. 


Setting Up The Program 
First, type in the program and save 
it to tape or disk. If you own a 64, 
make the following changes: 


20 21=56577:2%2=56579 : POKES3 281 
71223216 :FORA=54272T054295: 
POKEA, O:NEXT trem 71 


610 POKE54273,50:POKE54296,15: 
POKE54277, 25 :POKE54276,32: 
POKE54276,33:GOTO8G:rem 70 


In addition, you can customize 
TinyTerm in two ways. First, 
change the phone numbers in line 
310 to three bulletin boards you be- 
long to. Don’t use any dashes or ex- 
tra characters like spaces, and 
remember to put the number “1” in 
front of any long distance numbers. 
Line 60 can be changed to include 
your name, ID, and password for 
one of the bulletin boards, If you do 
this, you might not want to save a 
copy of the program with your real 
password, in case someone else 
might try to use it. 

Before you start, check the 
switches on the 1650 Automodem. 
They should be set to originate (the 
O/A switch), data (D/T), and full 
duplex (F/H). 

When you run TinyTerm, it 
will list the three telephone num- 





bers from line 310 and wait for you 
to press a key. If you want to dial 
one of the three built-in numbers, 
press a number 1-3, To input a 
brand new number, press 4. 


TinyTerm In Action 

The program dials the number 
you've chosen until it makes con- 
tact with the BBS. If the line is busy, 
a message prints that the program is 
still trying. If the line is free and a 
carrier tone is detected, your VIC or 
64 will make a sound (to get your 
attention). You can then log on. 

If you have previously defined 
your name, ID, and password in 
line 60, press f2, f4, and f6 in that 
order, (Be sure to hold down SHIFT 
while you're pressing these keys.) 

The program is written in 
BASIC, which has one advantage 
and one disadvantage. The good 
news is that programmers who are 
curious about how terminal pro- 
grams work can trace through the 
listing and make modifications if 
they wish (see below for details on 
the program flow). The bad news is 
that once in a while, TinyTerm 
drops a character, This usually hap- 
pens when a long message or menu 
is received from the BBS. It doesn’t 
happen very often, though. BASIC 
can keep up with 300 baud pretty 
well. 


How It Works 
The VIC version barely fits into an 
unexpanded VIC. You may think 
you have a lot of memory after 
loading the program, but the vari- 
ables and the buffer will quickly use 
most of it. Be careful if you start 
making modifications. 

Line 10 opens the channel to 





the modem and sets the baud rate. 
Next, the opening screen is printed. 

Line 50 goes to the subroutine 
at 230-290, which creates an array 
for translating Commodore ASCII 
to true ASCII. Note line 270, where 
the function keys are defined: 
f1 ASCII 3 (CTRL-C) 
£3 ASCII 19 (CTRL-S) 
£5 ASCII 17 (CTRL-Q) 
£7 ASCII 16 (CTRL-P) 

These control characters are 
used by some bulletin boards for 
special functions, Line 60 sets the 
values for the shifted function keys. 
In 70, the program jumps to 300, 
the dialing routine. 

Lines 300-400 print the three 
numbers and prompt you for input. 
If option 4 (manual dial) is chosen, 
lines 410-420 ask you for a num- 
ber. Line 430 is the beginning of the 
dialing routine. The numbers are 
extracted one by one, and the sub- 
routine at 540-560 does the actual 
pulse dialing, with pauses between 
the clicks, TinyTerm then checks 
for a connection in lines 480-510. 
Change the 300 in line 480 if your 
phone circuits take an unusually 





——l: 


long time to ring through. 

Lines 570-590 check three 
times to make sure we've really got- 
ten through. If the phone has been 
answered, we branch to 610, where 
the alarm is sounded. The program 
jumps back to line 80, the begin- 
ning of the main terminal program. 
A busy signal sends us back to the 
dialing routine. 

Line 90 GETs a character from 
the modem. If the BBS is not send- 
ing, we jump to 130, to GET a 
character from the keyboard. If you 
have not pressed a key, it jumps 
back to 90, alternately checking the 
modem and the keyboard for a 
character. Because of the dif- 
ferences between Commodore 
ASCII and standard ASCII, the 
characters have to be translated, 
using the arrays 1% and O%. 

If you're tired of hearing busy 
signals from your favorite busy bul- 
letin board, give TinyTerm a try. 
Your computer will take care of the 
dialing, giving you a chance to do 
other things while you wait to get 
through. 

See program listing on page 100. @ 











°° IBASF 
DISKETTES 


BASF Diskettes at compe- 
titive price. Call TOLL FREE 
(800) 235-4137 for prices and 
information. Visa and Master 
Card accepted. All orders sent 
postage paid. 


100 Foothill Blvd 
San Luis Obispo, CA 
93401, (In Cal call 
(805) 543-1037 ) 





GENERICWARE 


Finally, a company that offers 
you, the Commodore 64 user, 
excellent quality software at 
an economical price 


FOR THE COMMODORE 64 





32K bytes! 


Program Your Own EPROMS 
Bee $99.50 


PLUGS INTO USER PORT. 
NOTHING ELSE NEEDED, 
EASY TO USE. VERSATILE. 


© Read or Program. One byte or 







Promenade 





E22: 


'INEW!! 


PRINTER SPOOLER 
FOR MULTI-TASK OPERATIONS 


The new Printer Spooler by GENERICWARE allows you to 
print files from disk while running other programs on your 
Commodore 64, No more waiting to use your computer. With the 
Printer Spooler you can load, save and verify programs while 
printing files. 


The Printer Spooler includes: A print screen function, which 
lets you print a “‘picture’* of the current video screen; single key 
re-entry to the Printer Spooler program, which eliminates the need 
to re-load the program from disk; and an automatic paging option, 
which includes page numbers. 


SAVE *5°° - LIMITED INTRODUCTORY OFFER 


Now through July 31, you can purchase the new Printer 
Spooler for only $19.95, Send check or money order for $19.95 
plus $2.00 shipping and handling (CA residents add 6% sales 
tax) to: GENERICWARE, P.0. Box 4277, Visalia, CA 93278. 
For VISA or Mastercard orders call (209) 732-7779 (add 3% for 
charge orders). Sorry, no C.0.0.'s, 








promenade~ 





OR Use like a disk drive. LOAD, 
SAVE, GET, INPUT, PRINT, CMD, 
OPEN, CLOSE—EPROM FILES! 
Our software lets you use familiar BASIC commands to 
create, modify, scratch files on readily available EPROM 
chips. Adds a new dimension to your computing capability. 
Works with most ML Monitors too. 

Make Auto-Start Cartridges of your programs. 

The promenade™ C1 gives you 4 programming voltages, 

2 EPROM supply voltages, 3 intelligent programming 

algorithms, 15 bit chip addressing, 3 LED's and NO | 

switches. Your computer controls everything from software! 
® Textool socket. Anti-static aluminum housing. 

© EPROMS, cartridge PC boards, etc. at extra charge. 

© Some EPROM types you can use with the promenade™ 





2768 2532 462732P 27128 6133 x20164 
2516 3732 2564 2755 5143. B13 

one arcse (Bes 8764 Dats: deo | 
brcie = -B7Sth 2A 706 Bate 





Call Toll Free: 800-421-7731 
In California: 800-421-7748 


JASON-RANHEIM 
580 Parrott St., San Jose, CA 95112 











VIC Emulator 


Fausto Ibarra 


If you’ve upgraded from a VIC to a 64, here's a 
way to keep your VIC BASIC programs from 
becoming obsolete. 


Those who have upgraded from a 
VIC-20 to a Commodore 64 know 
that both machines have the same 
BASIC language, but won’t run the 
same programs. Memory locations 
and screen, graphics, and sound 
differences make a translation nec- 
essary if you want VIC programs to 
run on the 64. 

“VIC Emulator’ makes your 
64 behave just like a VIC. You can 
run most of your VIC programs 
written in BASIC without translat- 
ing them, including games using 
custom characters and sound ef- 
fects, utilities, and so on, and you 
can emulate programs written for 
the unexpanded, 3K, 8K, or 16K 
VIC, 

The program is written entirely 
in machine language, so you need 
MLX, which appears frequently in 
the GAZETTE, to aid in your typing. 
After loading MLX, answer the 
prompts for the starting and ending 
address with 49152 and 51124, 
respectively. Next, type in the pro- 
gram and save it to disk or tape. 
Load it at any time with the com- 
mand LOAD “‘filename’’,1,1 for 
tape, or LOAD’ filename’’,8,1 for 
disk. After it’s loaded, type NEW. 

To run the program, enter SYS 
49152. You are first asked to select 
the memory configuration of the 
VIC program. After this, you'll see 
the number of free bytes. At this 
point, load any VIC BASIC pro- 
gram and it will run normally. It’s a 
good idea to use the emulator 
before loading any program be- 
cause some programs change mem- 
ory pointers when using custom 
characters. You can return to the 
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normal 64 configuration at any time 
by entering SYS 64738. 

If you press RUN/STOP- 
RESTORE, the computer will forget 
where the screen is and you won't 
see what you're typing. You can re- 
cover your program by blindly 
entering SYS 49152. After selecting 
the appropriate memory configura- 
tion, enter SYS 51055. You can use 
this command at any time if you 
accidentally type NEW and wish to 
recover your program. 


What Does It Emulate? 

The 64 screen is changed to the 
VIC’s 22 characters. The program 
emulates all POKEs and PEEKs to 
screen and color memory, as well as 
alternate screens controlled with 
POKEs to locations 36866 and 
36869. If you clear the screen, color 
memory is filled automatically with 
color code 1 (white). It also emu- 
lates the VIC’s tone generator using 
the SID chip (it’s good enough for 
most sound effects, but will not 
work correctly with programs using 
music.) 

POKEs to change the screen 
and border color also work without 
modification. (Screen colors 8-15 
are different on the 64, so you may 
get other color combinations when 
using them.) Custom characters 
will work perfectly without any 
modification, as will multicolor 
characters. High-resolution graph- 
ics will work if they don’t use dou- 
ble height characters. 

POKEs and PEEKs to locations 
0, 1, and 2 are changed to reflect the 
64 USR vector. POKEs to start and 
stop the cassette motor are also 





emulated. 

For games and other programs 
requiring input, joystick and pad- 
dle, reading can be made as in the 
VIC (they must be connected in 
control port 1), and PEEKs to loca- 
tion 197 will return the key values 
of the VIC. 


A Word Of Caution 

VIC Emulator works with any pro- 
gram written entirely in BASIC. 
Joystick and paddle reading 
routines written in machine lan- 
guage will work if they don’t use 
locations 0 and 1, which are used 
by the 6510 chip. Machine lan- 
guage routines which use the 
Kernal jump table will still work 
since they are compatible with all 
Commodore computers. 


Wedge Works 

The program works by wedging into 
the BASIC routines for PEEK and 
POKE., It intercepts the execution of 
these commands to change them to 
work properly on the 64. This is pos- 
sible by copying BASIC memory 
from 40960 to 49151 ($A000-$BFFF) 
into the RAM beneath it, changing 
the routines to suit our needs, and 
telling the 6510 microprocessor to 
use the RAM memory by clearing bit 
0 of location 1. 

It also wedges into the PRINT 
routine to make the necessary 
changes to reflect the VIC’s 22- 
character screen. Also, an interrupt 
routine is added to the normal IRQ 
service routine to permit joystick 
and paddle reading from machine 
language. 

See program listing on page 103. @ 


































think 
it’s one 
of these 


C-64 & C-128* OWNERS: 
Stop playing “Hide-and-Seek” with your Disk software! Let 

your Commodore 64™ “memory” do all the work for you with 

MASTERDISK®. Easy Manual and Program Menu-Screens 

make everyone a “pro” in 1 day! 

Here's a small "PEEK" at SOME of the FULLY-INTEGRATED 

POWER of PRODUCTIVITY at your fingertips. 

* a SORTED Master Catalog of ALL your Disks (even those 
un-listable “protected” Directories: Names, ID's, File info, 











Now YOU too can get the "Software Edge’! 


et) = , NEW!!- MASTERDUAL®, "Son of MASTERDISK®"... 
© Search + List any File/Disk/ID in seconds, automatically, in : ‘ 
any of SEVEN WAYS. same power, but with Dual Drive Speed! 


Transfer ML-Programs or Files from Disk to Disk 
(CATEGORIZE your software) Same Disk repair functions, too 

Stop disaster before it strikes: change duplicate ID's fast, For all C-64 & C-128* systems with Dual Disk Drives (4040, 
without total re-copy. MSD, etc.) 

Restore accidentally-scratched files in a flash, with Utilizes all Dual Drive functions for maximum speed and 
VERIFICATION that they're OK. ease of use 

Works with 1 or 2 Single Disk Drives (1541, MSD, etc.) with FREE Handy Reference Card for HEX/ASCII/Binary to 
or without Printer (Commodore or ASCII). Decimal Translation + Formulas 

Handy-Reference Card for HEX/ASCII/BINARY-TO- Experience FULLY-INTEGRATED POWER for just $29.95 
DECIMAL VALUE TRANSLATION + FORMULAS, included (U.S.A.), $39.95 (Canada) 

FREE 

All this + MUCH MORE, for just $34.95, (U.S.A.), $45.95 (Canada) 


*MASTERDISK® and MASTERDUALE are also compatible with the NEW C-128 (in C-64 Mode)! 
We ship within 24 hours! Send Money Order or Check to: 


Same Catalog Features as MASTERDISK® 


INTEGRATED-SOFTWARE SYSTEMS IN CANADA: Cricket Distribution Co., 
P.O. Box 1801, Ames, 1A 50010 P.O. Box 953, Cobourg, 

VISA/M.C./C.0.D., Call (515) 233-2992 Ontario, Canada K9A 4W4 

9 a.m. - 9 p.m. (Central Time) Mon.-Fri VISA/M.C/C.0.D., Call (416) 372-3692 

Add $3 Shipping/plus $2 Foreign, C.0.D. 9.a.m, - 6 p.m, (Eastern Time) Mon.-Fri 
IA Residents add 4% Sales Tax Add $3 Shipping/plus $2 C.O,D. 


Ontario Residents add 7% Sales Tax 


Whether you have tens or hundreds of disks, now YOU can be the MASTER of your TOTAL Software Library! 





A Complete Pro Football 
x Prediction Program For The 
A 1985 NFL SEASON 


G8 % sities Festires: More informatio 
— More Information In 1985 To... 
BEAT THE SPREAD 
* % FEATURES * x AO 2a ene ON 
Predicted Scores Each Week eee! 


IBM PC 
Season Schedule By Week/Team TRESOVAMIITY 


Records & Results: Tandy 1000/1200/2000. 

Scores By Week 

Scores By Team STATS NEEDED TO RUN PROGRAM 

Division Standings AVAILABLE IN LOCAL NEWSPAPERS 

R 

Stats — Accumulated & Average WE WILL FURNISH STATS BY MAIL & MODEM 

1983-1984 Data Base ALL 20 WEEKS — SEASON PRICE . . . 40° 
Auto Opponent Input ~ PROGRAM COMES UPDATED THRU CURRENT 


WEEK OF SEASON .. . NO EXTRA CHARGE 
Auto Data Update 


Printed Copy All Screens Orders Call Collect 
Easy Update—Playoffs/1986 ee dal 


32 3 C.0.D. 
Dealer Inquiries Invited MaraTHON SOFTWARE Derr. C 
— P. 0. BOX 1349 ‘ 


JACKSONVILLE, TEXAS 75766 
(214) 586-8212 





( DELUXE RS232 \ | BOIMELCm Reel Ces 


INTERFACE of America ¢ Peripnerats, too!) 
Orders Outside PA—1-800-225-7638 


PA Orders — 1-800-223-7784 
Customer Service 412-361-5291 
*Free Shipping on orders over $100 in continental USA 
*No surcharge for VISA/Mastercard 
Wether you wert 40 conmowscata wich 0 mia, Srl ptr *Your card is not charged until we ship 
another computer, of any other AS232 device. the Deluxe R523 
interface the caret choce Any comgason wil show tha ‘ACCESS OATASOFT LEARNING COMPANY. Kidwriter (A) $19 
1s best Conmodre compatible RS232 interface avaiable for any Beach Head TorD) $21 Bruce Lee (0) $23 Addition Magician (0) $23 Kindercomp (A). $19 
price! The Deluxe RS232 Intertace is the aulmnation of 3 years of Beach Head It (0) $26 Conan(0) $23 Gertrudes Secrets (0)$19 Math Busters (OD) S17 
working with Conmodare users who need an RS232 Interac It Mach 5(R) $23. 01g Dug (0) $19 Reader Rabbit 0) ...$26 Most Amazing 
Supports all standard S232 connections (28, 12. 20. Z2) Raid Ove Moscow (0)$25 Lost Tomb(T/D) $19 Rocky's Boots (0) $23 Thing(O) s19 
cluding Ring Detect and Hi Speed Indicator Four switches wn the ACTIVISION Mr 00(D) $21 MICROPROSE Snooper Troops 
RS232 cover allow you to set the unit for virtually any standard Alcazar the Forgotter Pac Man(D) $19 Crusade Europe (0). $26 — 101 2(0) $19 
AAS232 coniguraten The unt cludes 23 fot cable with other Fortress(0) $21. TheGoonies Getinline Decision in Desert (0) $26 Story Machine (A)... 317 
‘a male of female DB25 connector (specity whch) S232 plus and Cor er Fireworks: DAVIOSON F-15 Strike Eagle (0) $23 SPRINGBOARD 
minus voltages Users Manual includes a type-in Basic terminal Celebration Kit(D) $23 Math Blaster (D) $33 Hellcat Ace (OD) $19 Early Games (0). $23 
progam, basic program transter routine, and other examples Add Countdown to Speed Reader !i(0) $43 Kennedy ApproactyO) $23 Easy as ABC (D) $26 
$2.00 for shipping, Suggested retail $44 95 Shutdown (0)...$21- Spellit(0) $33 MigAlley Ace (0)... $23. Fraction Factory (O) .$19 
Ghostoust $23 Word Altack(0) $33. NatoCommander(0} $23 Newsroom(0). Call 
PRINTMASTER/S (RS232) ELECTRONIC ARTS SoloFiight(O)..... $21. Stickers (0) $23 
Ths 15 an RS232 verwon of ou famous Printmaster/+G it Adv Const Set(D) $27 MINDSCAPE ssi 
2 senal bus rer trace providing Mul R232 sais fr an $21 Archon (0) $17, Bank St Music Baltic 85(0) $25 
AS232 printer Supports pins 28. 20 Select 300. 600 1200, E Archon t(D) $23 Writer (0) $33 Battle Normandy (0) $26 
2400, werd. and panty OTR oF Xon-Kolt handshake ‘Supports Lamps (0) $21 Curk Paste WP (0) $19 Bank St StorybookiD) $26. Breakthrough in the 
{ot grahies and characters on S232 versors of Epson Ou Mindshadow (D) $19. Financial Crossword Magic (0) $33 Ardennes (0), 339 
Gorila NEC. and mote Includes ail Protmaster Inehfeatres Space Stuttie(O) $21. Cookbook|D).$29 Halley Project(O) .. $29 Broadsides (D) $26. 
Includes 3 ft cable with a male of female connector (specity whech) The Music Studio (0) $21. Hard Hat Mack(O) $17 Indiana Jones (0) $19 Carrier Force (D) $39 
Cassette or external power Add $250 for shipping Suggested Tracer Sanction (D). $19 Mail Order Mr. Pixel’s Cartoon Colonial Conquest (D) $26 
retail $139.95 Web Dimension (0). $19 poosiers\b) a A Rel nig hy conta eh) aa 
ARTWORK Music Const. Set (0) $19 Perfect Score SAT(0) $49. Comp. Ambush (0) 
S00) OU ICCe Caner, OF Alice in Videoland (0)$18 Pinball Const Set (D)$19 Show Director(D) $23 Comp. Baseball (0) $26 
CALL (206) 236-2983 Allegto(D) $26 Racing Destruction Tink’s Adventure (0) $19 Computer QB(D)....$26 
Boies Bridge 40(TorD) $16 Set (D) $23 MISC Cosmic Balance (D) $25 
Graney) Dien, Gemracten On ree Picante ee aw Compubridge(D) $19 Seven Cities Gold (0) $25 Copy !1() $27 Eagles (D) $26 
welcome White 10 us you wah fo eon aspeca marketing sxvey FreneniO) $19 Sky Foxi0) 325 CSM 1541 50 Mission Crush (0) $25 


oira's' DEALERS CALL US! German) 319 cont cRIyNE HHO) $29. Gamsione Warrior 1823 


—— Gness(0} $19 Barbie (0) $21 Punishment(O) $23. Imperium 
Omnitr n Monkeymath Tor) $19 Chip Wits (D) $21 Micro-League Galactum (0)... .$26 
oO 1X Slap ShotHockey(D) $16 FastLoadiR) S25 Gaseball(O) .....$27 Kamplgruppe(0). $39 
Spanish (0) $19. Gi Joe (0) $21 ViPTerminalXL (0). $27 Knightsof Desert (0) $28 
P.O. BOX 4 RIS. Strip Poker (D) $21 Impossible MissionD) $23. MUSE Norway 1985(D) ....$23 
OZBORSE DENT GY MERCER ISA $8000 Female Data Disk $16 Jet Combat Beyong Phantasie (D) $26 
Male ataDisk $16 Simulator(0) $21 Woltenstein(D). ..s21 ProTour Goll (0)... S26 
AVALON HILL Monty's Scrabble (D) $26 Castle Questron(D) $26 
81 Nuclear Pitstop i (0) $25 Woltenstein(0)...$17 RalsWest(D) $26 
Bomber (D) Rescue on ORIGIN: Ringside Seat (D) $26 
Fractalus (0). Call Ultimatil(O) $29 Six-Gun Shootout (0) $28 
summer Games (0) $25 PRACTICORP SYNAPSE 
emple of Apshai(0) $21 Practicalc(O).....$23 Blue Max 2001(0) $19 
19990) TwoonTwo Sports} Call Practiile (0) $23. SynCalc (0) 335, 
Maxwell Mi World's Greatest 64 Doctor (D) $17 Zaxxon (D) $25, 
Panzor Jagd (0) Basedall(0) $23" Buyall3iillos.. $47 TELARIUM 
Rip FIRST STAR PRECISION Amazon (D) $23 
Super Bow! Spy vs Spy () $19 Superbase64(0).. $47 Dragonworld (0). $23 


Sunday (0) GAMESTAR PROFESSIONAL Fantenneit 451 (0)... $23 
ME! Telenguard 0) On-Court Tennis (0) $19 SOFTWARE Rendezvous Rama 0)$23 
BLUE CHIP OnField Football(O) $21 Fleet System 2.80 TIMEWORKS 
Baron 0} Star-League column wp wi70.000 Data Manager 2(0) ..$39 
FLEXIBLE DISCS Tycoon (D) Baseball(0). $21. word spell Electronic 
BRODERBUND HAYDEN Checker (0) $49 Checkbook (0)....$16 
Bank St Wiiter(O) $33. Great Maino Race (0) $19 TriviaFever(D) $21 Evelyn Wood 
Gasties Or Creep 0) $21. Sorgon tt) $16 TowiaFover 210) $19 ‘Reader $33 
mp Loderunnen(0) $23. Sargon il (O) $33 lnventory Mgmt (0) $39 
WE WILL NOT BE UNDER- $21 WordChallenge 0)" $18 Apnetncounter(O) $21 Money Mangperio), $18 
SOLDI Call Free (800)235-4137 Coderunner(0) $21. HES Charlie Brown's Swilteatc (0) $33 
{ ae a Loderunner Hint Book. 7 Hes Mon64(R) $23. ABC's (0) $19. Word writer! 
for prices and information. Dealer Music Shop (D) $29 Millionaire (D) $19 SroopyialHeading Speller (0) $33 
: Operation WhirlwindO;$26 Multiplan (0) $49 Machine(0). $19 TRONIX 
ing Uines Brouled andl: COD is Print Shop (0) $29 Omniwntor/Spoller(0) $33 SCARBOROUGH SAM. (0) $39 
accepted. Print Shop Graphics. 64 Forth (R) $23 Build ABook(D) $23 ACCESSORIES 
LUbrary (0) $19 SuporZaxxon(0) $19 Mastertype (0). $23. BASFSS,0D...$14 Bx 
PS Graphics (0) $19 Not Worth (0) $44 Cardco Access... Call 
Stealth (0) INFOCOM SIERRA ON LINE 0 CIG + 
Whistler's Brot Enchantet (0) $23 Homeword(0)...$33— Printorint __.. Cheap 
cas Hitchhikor's Guide to. Homeword Compuserve Starter 
PACIFIC Algebra Series the Galaxy (D) $23 wiSpelier (0) $47 Kit (Shes. $19 
EXCHANGES AsttoGrover(D) $23. Infidel (0) $26 Ultima (0) $39 Compuserve Vidiex(0}$19 
GOSS BR, Dinosaur Dig iO) $26 Invisiclues $7 Wiz Type(0) $23. Digital Devices U-Print C 
‘oothill Blvd Or Seuss (0) $21. Planettall(O) 523 SIMON & SCHUSTER Printer interface. $44 
San Luis Obispo, CA Felony (0) $23 Seastalker(O) $23. Typing Tutorill(0) $26 Disk Case Holds 50), $9 
93401 In Cal coll Mastering SAT (0) $49. Sorcerer (0) $26 SPINNAKER Dow Jones News 
3401 | Call Wishbringer(O) $23. Adventure Creator(R)$19_—Reitieval Kit (5 hrs) 319 
(800)592-5935 or (0) $23 KOALA Alphabet Z00(R)...$19 IndusGT.. Best Deal 
805)543-1037 Voyagers $26 Muppet Learning Counting Parade(O) $17 Wico Boss $12 
CONTINENTAL Keys (0) $49 Facomakor(R).. $17 WicoBat Handle. $19 
Book af Adv Games $16 Tablet w/Painter (0) $49 Fraction FoveriR) $17 Wico3Way $23 
Koala Printer(O). $18 KidsonKeys(R) $19 WicoTrackball $29 


P.O. BOX 278—DEPT CG—WILDWOOD, PA 15091 


ing and Terms: Or th cashier check ot money order shipped immediately Personalicompany 
Miow 3 weeks cirarance No GOD s Shipping: Continental U.S.A.—Orders under $100 add $3. 

1@ shipping on orders over $100. PA residents add 6%» sales tax AK, Hl, FPO-APO—add $5 on all orders 
ternat ders Detectwe merchandise will be replaced with same merchandise. Other 

NO CREDITS! st have authorization number (412) 
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Simp 


le answers 


Tom R. Halfhill, Staff Editor 


tO COMMON Guestions 


Each month, COMPUTE!’s GAZETTE 
tackles some questions commonly 
asked by Commodore users and by 
people shopping for their first home 
computer. If you have a question 
you'd like to see answered here, send 
it to this column, c/o COMPUTE!’s GA- 
ZETTE, P.O. Box 5406, Greensboro, NC 
27403, 


e BASIC is too slow for some 
programs I want to write, but I 
don’t think I want to tackle ma- 
chine language yet. What other 
languages are faster than BASIC 
but easier to learn than machine 
language? 


A. Perhaps the easiest solution 
is not to learn another language at 
all—instead, try a BASIC compiler. 

A compiler is a sophisticated 
program which takes another pro- 
gram written in a high-level lan- 
guage such as BASIC and translates 
(or compiles) it into machine lan- 
guage. Although a compiled pro- 
gram won't run as fast or be as 
compact as a program written di- 
rectly in machine language, it still 
runs much faster than an ordinary 
BASIC program. The speed gain 
can range from 10 to 1,000 times 
faster, depending on what the pro- 
gram is doing. 

Most compilers require you to 
observe a few extra programming 
rules, but it’s still much easier than 
learning a whole new language. 
Several BASIC compilers are avail- 
able for Commodore computers 
and have been advertised and re- 
viewed in COMPUTE!’s GAZETTE. 

If you're dissatisfied with 
BASIC for reasons other than 
execution speed, the other alter- 
native is to explore different lan- 
guages. Versions of Logo, Pascal, 
Forth, PILOT, COMAL, PROMAL, 
and others are available for Com- 
modore computers. Some of these 
are compiled languages as well. 





Logo is known for its turtle graphics 
and recursive (self-repeating) struc- 
tures; it’s often the first language 
taught to children. Pascal is a popu- 
lar structured language in colleges 
and universities. Forth is extensible, 
which means you can create new 
keywords and build your own cus- 
tom language. PILOT lends itself to 
instructional and educational 
programming. COMAL is a rel- 
atively fast, structured language 
that strongly resembles BASIC and 
is very popular in Europe. 
PROMAL is a new compiled lan- 
guage that has much in common 
with Pascal. 


Q. I’ve noticed that a lot of 
BASIC programs use words like 
OR and AND. Can you explain 
what they are and how they work? 


A. One reason these keywords 
are so confusing is that they’re used 
in BASIC programs in two com- 
pletely different ways. Like the 
English word ‘‘star’-—which can 
denote either a point of light in the 
sky ora leading actress—the mean- 
ing depends on the context. 

Usually, AND and OR are used 
in BASIC with IF-THEN statements 
as logical operators. A logical op- 
erator is a keyword which defines 
how an IF-THEN statement should 
be resolved under different con- 
ditions. Here are some examples in 
English: 

IF the Cubs win the pennant OR the 
Indians win the pennant THEN I'll 
pay you $10, 

IF the Cubs win the pennant AND the 
Indians win the pennant THEN I'll pay 
you $20. 

According to.the first IF-THEN 
statement, the $10 bet will be paid 
off if either baseball team—the 
Cubs or the Indians—wins the pen- 
nant. The OR operator specifies 
that only one of the two conditions 
must be met. But in the second IF- 
THEN statement, the AND op- 
erator requires that both teams must 





win a pennant in their respective 
leagues to pay off the bet. Logical 
operators work the same way in 
BASIC. Since computers must see 
everything in terms of numbers, —1 
means true and 0 means false: 

IF A=—1 OR B=—1 THEN C=10 

IF A=~—1 AND B=~1 THEN C=10 

Again, the first IF-THEN state- 
ment specifies that if the variable A 
equals —1 or the variable B equals 
—1, then the variable C becomes 
10, Only one of the two possible 
conditions must be met for this to 
happen. But in the second IF-THEN 
statement, both conditions must be 
met for C to equal 10. 

Logical operators are often 
combined with IF-THEN state- 
ments to form decision points in 
computer programs. The program's 
flow and reaction to user input can 
vary according to how it evaluates 
different conditions. It’s up to the 
programmer, of course, to make 
sure the program can respond to 
any possible condition. Otherwise, 
it may “crash.” 

In another context, AND and 
OR are used in BASIC to directly 
manipulate bits in computer mem- 
ory. All digital computers store 
information in the form of binary 
numbers, and those numbers are 
composed of bits, which are like 
tiny switches that can be turned on 
or off. For instance, the number 97 
is stored in memory as a pattern of 
eight bits (l=on, 0=off): 

01100001 

Keywords such as AND and 
OR allow programmers to change 
these bit patterns in certain ways. 
Bit manipulation is beyond the 
scope of this column because it real- 
ly has more to do with machine lan- 
guage than with BASIC. In fact, the 
keywords AND and OR correspond 
directly to machine language com- 
mands, To learn more about this 
subject, follow the “Machine Lan- 
guage for Beginners’’ column, 
which appears regularly in the 
GAZETTE. @ 
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 bugeswattter 


© Two problems affect the RENUM 
command from ‘‘MetaBASIC” (April). 
The first is relatively minor: After 
renumbering, the definition given to 
the f8 function key is garbled. A mem- 
ory conflict causes this quirk, which 
cannot easily be fixed. 

A more serious bug is that RENUM 
can ruin the second index number in a 
two-dimensional array. When 
MetaBASIC renumbers a program, it 
looks for GOTOs, GOSUBs, THENs, 
and other references to line numbers. 
Within an ON-GOTO or ON-GOSUB, 
the line numbers are separated by com- 
mas. So, if a line containing ON-GOTO 
or ON-GOSUB is followed by a two- 
dimensional array—A$(20,10), for ex- 
ample—the second number in the array 
will be treated as part of the ON state- 
ment, because it is preceded by a 
comma. The array variable will, in ef- 
fect, be renumbered. To fix this, load 
MetaBASIC, type NEW, and enter this 
line: 

FOR A=39243 TO 39246:POKEA,2 
34:NEXT 


You can now use the BSAVE com- 
mand to save the altered MetaBASIC to 
disk, Tape users will have to use MLX: 
Enter POKE 644,144: SYS 58260 to pro- 
tect memory, load MetaBASIC, type 
NEW, enter the line above, load and 
run MLX, enter the starting and ending 
addresses (36864 and 40805), and then 
use SHIFT-S to save the new copy to 
tape, 


© There are no bugs in the 64 version of 
“TurboDisk” (July). Some GAZETTE 
DISK subscribers have had trouble mak- 
ing a backup copy of the program, how- 
ever. The program works correctly 
when loaded from the GAZETTE DISK, 
but a slight modification is necessary to 
make a backup. 

There are three TurboDisk pro- 
grams on the GAZETTE DISK. 
“TURBODISK BOOT” is a short BASIC 
program which loads and enables the 
main machine language program, 
“‘TURBODISK,”’ which is called 
“TURBODISK.OBJ” in the July issue of 
the GAZETTE. If you're using a copy 
program, these are the two programs 
you'll need to put on the backup disk. 
They'll work correctly if they're copied 
directly from the GAZETTE DISK. 

You can also make a backup by 
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running the third program, “TDISK 
GENERATOR.” It will create a file 
called ‘‘ TURBODISK.OBJ”’ on your 
backup disk. But TURBODISK BOOT 
tries to load TURBODISK (without the 
OBJ). So, you'll need to change line 10 
of TURBODISK BOOT so it loads 
TURBODISK.OBJ rather than 
TURBODISK. After making the correc- 
tion, save TURBODISK BOOT to the 
backup disk. 


* VIC owners have reported that al- 
though “Screen-40” (June) converts the 
VIC screen to 40 columns and works 
well when printing to the screen, it has 
problems sending anything to a printer. 
Reader D. J. Stauffer has found a 
solution: 


1. Load Screen-40. 

2. Type POKE 8402,104: POKE 8403,76: 
POKE 8404,122: POKE 8405,242 

3. Enter the necessary POKEs from the 
article: POKE 43,1: POKE 44,44: 
POKE 11264,0: NEW. 

4. Load and run MLX, enter the starting 
and ending addresses (8192 and 
10240), and press SHIFT-S to save 
the new copy of Screen-40, 


© Reader David Gunderson writes that 
the score in the 64 version of “Heat 
Seeker” (March) may be difficult to 
read if you own an older 64 or a black- 
and-white television. To change the 
background color and make the score 
more legible, load Heat Seeker, POKE 
2076,6, and save it back to tape or disk. 


© As reported in the June “Bug-Swatter,” 
the number 100 in line 130 of “1526 Hi- 
Res Screen Dump” (April) should be 
changed to a 130. This does not affect 
the program if all DATA statements 
were correctly typed. The program 
works as listed, and several readers 
have sent in modifications. 

1526 Hi-Res Screen Dump is writ- 
ten in machine language and Peter Hei- 
ne Jorgenson has noted that it exits back 
to BASIC via a BRK, rather than an 
RTS. To make it a little easier to use 
from BASIC programs, POKE 49488,96. 
Also, if you prefer not to have the 
screen centered on the page, pick a left 
margin between 0 and 40 (variable L) 
and add these POKEs before starting 
the screen dump: 


R=L+40: POKE 49153,L: POKE 49393,L: 
POKE 49389,R 








Modifications and Corrections 


By printing one screen at left mar- 
gin zero, rewinding the paper, and 
printing another screen at margin 40, 
you can create a double width, two- 
screen picture, 

Readers Eric Thosteson and Robert 
Lewis own MPS-802 printers, which 
are functionally identical to the 1526, 
except for the line spacing. The MPS- 
802 allows more vertical positions per 
inch. If the lines seem to overlap when 
using the 802, add a POKE 49289,24 
before the SYS49152. Or, change the 
second number in line 330 from 18 to 
24, and change the last (checksum) 
number in 330 from 885 to 891. Num- 
bers larger than 18 on a 1526, or 24 on 
the 802, will cause more spacing be- 
tween the lines, 

Finally, because the program starts 
at 49152, it will not work with some hi- 
res programs which use the same loca- 
tions. Paul Kroculik suggests the 
following changes to allow screen 
dumps from Simons’ BASIC, ‘‘Screen- 
80” (September 1984), or “Hi-Res 
Graphics Made Simple” (August 1983): 


110 PRINT:PRINT"TYPE SYS 52736 
TO BEGIN HI-RES DUMP": EN 
D 

148 DATA 52736 

156 DATA 53121 

168 DATA 169,18,133,16,32,33,2 
06 , 32,633 

178 DATA 67,206,32,81,206,76,1 
08,207,975 

188 DATA 32,177,206,162,8,230, 
3, 208,1626 

198 DATA 2,238,4,202,208,247,7 
6,81,1050 

208 DATA 267,173,0,221,41,3,73 
73,721 

505 DATA 162,53,120,134,1,177, 
3,162,812 

510 DATA 55,134,1,88,234,234,2 
34,234,1214 

515 DATA 234,234,37,16,240,16, 
169,128,1074 

540 DATA 165,17,201,8,208,208, 
76,16,893 

558 DATA 236,15,165,15,201,8,2 
08,194, 1036 

580 DATA 96,76,13,206,169,0,13 
3,17,710 

610 DATA 206,76,19,206,32,250, 
206,76,1071 

620 DATA 16,206,222 


Since the starting address has been 
moved to 52736, readers are cautioned 
not to use the Commodore DOS 
Wedge, which loads into the same area 
of memory. @ 








MLX 


MLX is a labor-saving utility that 
allows almost fail-safe entry of 
machine language programs pub- 
lished in COMPUTE!’s GAZETTE. 
You need to know nothing about 
machine language to use MLX—it 
was designed for everyone. There 
are separate versions for the Com- 
modore 64 and expanded VIC-20 
{at least 8K). 


MLX is a new way to enter long ma- 
chine language (ML) programs with 
a minimum of fuss. MLX lets you 
enter the numbers from a special 
list that looks similar to BASIC 
DATA statements. It checks your 
typing on a line-by-line basis. It 
won't let you enter illegal charac- 
ters when you should be typing 
numbers, It won’t let you enter 
numbers greater than 255 (forbid- 
den in ML). It won't let you enter 
the wrong numbers on the wrong 
line, In addition, MLX creates a 
ready-to-use tape or disk file. You 
can then use the LOAD command 
to read the program into the com- 
puter, as with any program: 
LOAD “filename’,1,1 (for tape) 
LOAD “filename’8,1 (for disk) 

To start the program, you enter 
a SYS command that transfers con- 
trol from BASIC to machine 
language.The starting SYS number 
always appears in the appropriate 
article, 


Using MLX 

Type in and save MLX (you'll want 
to use it in the future), When you're 
teady to type in an ML program, 
run MLX. MLX asks you for two 
numbers: the starting address and 
the ending address, These numbers 
are given in the article accompany- 
ing the ML program. 

You'll see a prompt correspond- 
ing to the starting address. The 
prompt is the current line you are 
entering from the listing. It in- 
creases by six each time you enter a 






Machine Language Entry Program 
For Commodore 64 and VIC-20 


Charles Brannon, Program Editor 





line. That's because each line has 
seven numbers—six actual data 
numbers plus a checksum number. 
The checksum verifies that you 
typed the previous six numbers cor- 
rectly. If you enter any of the six 
numbers wrong, or enter the 
checksum wrong, the computer 
rings a buzzer and prompts you to 
reenter the line. If you enter it cor- 
rectly, a bell tone sounds and you 
continue to the next line. 

MLX accepts only numbers as 
input. If you make a typing error, 
press the INST/DEL key; the entire 


number is deleted. You can press it* 


as many times as necessary back to 
the start of the line. If you enter 
three-digit numbers as listed, the 
computer automatically prints the 
comma and goes on to accept the 
next number. If you enter less than 
three digits, you can press either the 
SPACE bar or RETURN key to ad- 
vance to the next number. The 
checksum automatically appears in 
inverse video for emphasis. 

To simplify your typing, MLX 
redefines part of the keyboard as a 
numeric keypad: 


ulLO 789 
HJ K L become 0 4 5 6 
M,. 123 


MLX Commands 

When you finish typing an ML list- 
ing (assuming you type it all in one 
session) you can then save the com- 
pleted program on tape or disk. Fol- 
low the screen instructions. If you 
get any errors while saving, you 
probably have a bad disk, or the 
disk is full, or you've made a typo 
when entering the MLX program 
itself. 

You don’t have to enter the 
whole ML program in one sitting. 
MLX lets you enter as much as you 
want, save it, and then reload the 
file from tape or disk later. 





MLX recognizes these 
commands; 

SHIFT-S: Save SHIFT-N: New Address 
SHIFT-L: Load SHIFT-D: Display 

When you enter a command, 
MLX jumps out of the line you've 
been typing, so we recommend you 
do it at a new prompt, Use the Save 
command to save what you've been 
working on, It will save on tape or 
disk, as if you've finished, but the 
tape or disk won't work, of course, 
until you finish the typing. Remem- 
ber what address you stop at. The 
next time you run MLX, answer all 
the prompts as you did before, then 
insert the disk or tape. When you 
get to the entry prompt, press 
SHIFT-L to reload the partly com- 
pleted file into memory, Then use 
the New Address command to re- 
sume typing. 

To use the New Address com- 
mand, press SHIFT-N and enter the 
address where you previously 
stopped. The prompt will change, 
and you can then continue typing. 
Always enter a New Address that 
matches up with one of the line 
numbers in the special listing, or 
else the checksum won't work, The 
Display command lets you display 
a section of your typing. After you 
press SHIFT-D, enter two addresses 
within the line number range of the 
listing. You can abort the listing by 
pressing any key. 

What if you forgot where you 
stopped typing? Use the Display 
command to scan memory from the 
beginning to the end of the pro- 
gram. When you reach the end of 
your typing, the lines will contain.a 
random pattern of numbers. When 
you see the end of your typing, 
press any key to stop the listing. 
Use the New Address command to 
continue typing from the proper 
location. 

See program listings on page 106. 
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How To Type In 
COMPUTE!s GAZETTE Programs 





Each month, COMPUTE!’s GAZETTE 
publishes programs for the VIC-20, 
Commodore 64, Plus 4, and 16, 
Each program is clearly marked by 
title and version. Be sure to type in 
the correct version for your ma- 
chine. Also, carefully read the 
instructions in the corresponding 
article. This can save time and 
eliminate any questions which 
might arise after you begin typing, 
We publish two programs, 
appearing in alternating months, 
designed to make your typing effort 
easier: The Automatic Proofreader, 
and MLX, designed for entering 
machine language programs. 
When entering a BASIC pro- 
gram, be especially careful with 
DATA statements as they are ex- 
tremely sensitive to errors. A 
mistyped number in a DATA state- 
ment can cause your machine to 
“lock up’ (you'll have no control 
over the computer), If this happens, 
the only recourse is to turn your 
computer off then back on, erasing 
whatever was in memory, So be 
sure to save a copy of your program 
before you run it. If your computer 
crashes, you can always reload the 
program and look for the error. 



















Special Characters This can be entered on the Com- 
Most of the programs listed in each | modore 64 by pressing the CTRL 
issue contain special control charac- | key while typing the letter in 
ters, To facilitate typing in any pro- | braces, For example, {A} means to 
grams from the GAZETTE, use the | press CTRL-A, 
following listing conventions. 
The most common type of con- 
trol characters in our listings appear The Quote Mode 
as words within braces: {DOWN} | Although you can move the cursor 
means to press the cursor down | around the screen with the CRSR 
key; {5 SPACES} means to press | keys, often a programmer will want 
the space bar five times. to move the cursor under program 
To indicate that a key should | control. This is seen in examples 
be shifted (hold down the SHIFT | such as {LEFT} and {HOME} in 
key while pressing another key), | the program listings. The only way 
the character is underlined. For ex- | the computer can tell the difference 
ample, A means hold down the | between direct and programmed 
SHIFT key and press A, You may | cursor control is the quote mode, 
see strange characters on your Once you press the quote key, 
screen, but that’s to be expected. If | you're in quote mode. This mode 
you find a number followed by an | can be confusing if you mistype a 
underlined key enclosed in braces | character and cursor left to change 
(for example, {8 A}), type the key | it. You'll see a reverse video charac- 
as many times as indicated (in our | ter (a graphics symbol for cursor 
example, enter eight SHIFTed A's). | left). In this case, you can use the 
If a key is enclosed in special | DELete key to back up and edit the 
brackets, K 9, hold down the | line. Type another quote and you're 
Commodore key (at the lower left | out of quote mode. If things really 
corner of the keyboard) and press | get confusing, you can exit quote 
the indicated character. mode simply by pressing RETURN; 
Rarely, you'll see a single letter | Then just cursor up to the mistyped 
of the alphabet enclosed in braces. | line and fix it. 



























































































































When You Read: Pres: See: | When You Read: Press: See: | When You Read: Press; See: 
{cur} (suet) [eumnowe | I) trun) | | 7) = 
(HOME) {GRN) AV Ger] 
(uP) {BLU} (|Z 
{DOWN} {YEL} (aa T For Commodore 64 Only 
{LEFT} (nm) [a] = £13 [commopoRE| 
SST (mp) (0 Pedgag 
{RVS} {5} [=] = E34 
(orF) 1) sane] WB) gag 
{BLK} UB} 6 li Bs 
(wu) (86) (siarr] [7s Bi) gs 
in) im) OM es 
(evn) Up) fe=|—7)] EsJ 
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Tracker 


(Article on page 69.) 


5 POKE5S2,48:POKES6 , 48:CLR 
trem 234 
18 PRINT" (CLR} {2 DOWN} (RIGHT) P 
LEASE WAIT FOR SET UP..." 
rrem 245 
15 GosuB9BaB rrem 175 
20 POKE53281,1:POKE53286,7:POK 
ET+24,15:TS=0:TL=3 rem 55 
25 PRINT"({CLR){5 DOWN} {BLK} 
{5 RIGHT}GAME INSTRUCTIONS 
{SPACE} (Y/N)":POKE198,6 


trem 158 
38 GETAS$ :IFA$="Y"THENGOSUB8O00 
1GOTO35 trem 2 


32 IFA$="N"THENGOTO35 :rem 248 
33 GOTO30 trem 2 
35 PRINT"{CLR}{5 DOWN} {BLK} ":I 

NPUT"{5 RIGHT]SKILL LEVEL ( 

1-5)";SK . trem 4 
4@ IFSK<1ORSK>STHEN35 " :rem 71 
45 BV=10*SK:BS=24*BV:SK=INT( 30 


/SK-1.5) trem 221 
50 P=1065:S=91 :A=1064:C=9:Y=30 
3C1=9:SC=B trem 252 


55 PRINT"(CLR)(BLK} TE23+(BLK) 
RE29+(BLKJAR23+{ BLK}CE23+ 
( BLK} KE 23+( BLK} E£23+(BLK}R" 
SPC(13)"SCORE:" trem 223 
68 POKEA,FC:POKEA+T, 4:POKE2623 
160: POKE56295,10:POKEP,¥:P 
OKEP+T,6 trem 224 
64 FORN=1T05 :MN=INT( RND(1)*(19 
88-1184) )+1180:POKEMN,Q:POK 
EMN+T , 5 :NEXT trem 176 
66 FORN=1T016:MN=INT(RND(1)*(1 
989-1188) )+1180:POKEMN, 28:P 


OKEMN+T, 14 :NEXT rrem 39 
68 GOSUB700:TI$="600000" 

trem 33 
78 PRINT" (HOME) {RED} "SPC(34)SC 

rrem 155 
88 IFTI$>"660159"THEN465 

trem 55 


82 IF(INT(TI/6@)/SK)-INT(INT(T 
1/66) /SK)=OTHEN2600:rem 135 
84 PRINT" {HOME}"SPC(15)"—43"(1 
29-INT(TI/68) )" {LEFT} 

{2 SPACES)SECS [LEFT] " 
rrem 243 
86 GOSUB100 : M=P 1 IFFB=OTHENS=X 
1ONJVGOTOYM , 104,92,102,98,1 
88,94, 106 :GOTO96 trem 96 
88 ONJVGOTO9G , 86 ,92,86,98,86,9 
138 


4,86 trem 
98 S=Y:Cl=6:GOTO15S trem 124 
92 P=P+1:GOTO120 trem 178 
94 P=P-1:GOTO120 trem 174 
96 P=P-49:GOTO120 trem 227 
98 P=P+40:GOTO120 srem 227 
100 P=P+39:GOTO120 trem 11 
182 P=P+411GOTO120 trem 6 
104 P=P-39:GOTO120 trem 17 
106 P=P-41 trem 6 


128 IFP<1Q64THENP=P+48 :rem 26 
138 IFP>2023THENP=P-48 :rem 21 
135 IFP=ATHENP=M:POKEM, ¥ : POKEM 
+7,C1GOTOBO trem 185 

145 IFPEEK(P)=86THEN455 
trem 103 
158 LFPEEK(P)=QTHENY=Q1C=5 1GOT 
o16 trem 136 
155 TPPEEK( P)=20THENY=25s¢=14 
trem 229 
168 IFPEEK(M)=QTHENS=Q:C1=5:GO 
701708 trem 178 
165 IFPEEK(M)=28THENS=28:Cl=14 
trem 14 
178 POKEP ,Y¥:POKEP+T,C+¥=361POK 





175 


216 


226 


238 


248 


250 


266 
308 


400 
416 
42 


438 


435 
440 


456 


455 


460 
465 


478 


475 


480 
482 


484 


486 


488 
4908 
492 


494 
508 


EM, St POKEM+T, C1 1S=91 :C=6 :C 
1=9 : IFJV<> @THENGOSUB559 
trem 36 
IFP< 2623 THENPOKE2623 , 160:P 
OKE56295,18:GOTO8G :rem 67 
IFA+4> 2623 THEN230:rem 187 
IF (PEEK (A+48 )=SORPEEK(A+40 
)=QORPEEK(A+4@)=28) THENA=A 
+40 1P=A-40:GOTO300 :rem 95 
IF(PEEK(A+1)=SORPEEK(A+1)= 
QORPEEK(A+1)=28) THENA=A+1: 
P=A-1 :GOTO388 trem 97 
IF (PEEK(A-1 )=SORPEEK(A-1)= 
QORPEEK(A-1)=28) THENA=A-1: 
F=A+1 :GOTO368 rrem 104 
IP (PEEK (A~48 )=SORPEEK(A-48 
)*=QORPEEK(A-48)=28) THENA=A 
-40:F=A+40:GOTO300:rem 104 
coTose trem 57 
IF (A=19830RA=2B22) THENPOKE 
A, FC: POKEA+T, 4s POKEF ,X GOT 


0446 trem 198 
IFA=PTHENA=F : POKEA , FC: POKE 
A+T ,4:GOTO8O trem 167 


IFPEEK(A)=QTHENSC=SC+(2*BV 
) :GOsUB600 trem 193 
IPPEEK(A)=28THENSC=SC+BV :G 
OSUB6OB trem 46 
POKEA, FC: POKEA+T, 4: POKEF, X 
:GOSUB525 1 IFF=1064THENPOKE 
F, 86 :POKEF+T,@ rem 173 
GOTO78 rrem 68 
POKE2023 ,FC: POKE5S6295 ,4:PO 
KEA,X:SC=SC+(4*BV) trem 90 
PRINT" {CLR} "SPC(6)" 

{11 DOWN) (BLU}HOORAY! HERB 
IE'S HOME SAFE!":GOSUB700: 
GOTO478 trem 168 
PRINT" {CLR]"SPC(6)" 

{11 powN}{BLUJOUCHI! ZAPPED 
BY A DEADLY X!":GOSUB9G0: 
TL=TL-1 trem 17 
GOTO478 rem 116 
PRINT" (CLR}"SPC(6)" 

{11 DOWN) (BLUJOH, NOI HERB 
IE IS STRANDED!" :GOSUBBG8: 
TL=TL-1 trem 55 
PRINTTAB(14)"(9 UP} {RED}LE 
VEL "BV/10:PRINTTAB(12)" 
{RVS} HIGH SCORE {OFF}: 
(BLK) "HS trem 9 
IFBV> 1@ANDSC< (BS-(4*BV) )/2 
THENSC=SC-(4*BV) :IFSC<@THE 


NSC=0 trem 207 
‘TS=TS+SC:IFSC=BSTHENTS=TS+ 
580 trem 147 


PRINTTAB ( 2)" (DOWN) &23THIS 
(SPACE } ROUND: 843"SCSPC(2)" 
E29GAME TOTAL: (BLK) "TS 
rem 231 
IFSC=BSTHENP RINT" { HOME) 
(RvS)843(2 SPACES)SPECIAL 
(SPACE) PERFECT ROUND BONUS 
=-5001111[2 SPACES} 
{5 Down)" trem 52 
IFTS> HSTHENHS=TS : PRINTTAB ( 
16)"{DOWN)(REDJA NEW HIGH 
{SPACE}SCORE111":PRINT" 
(HOME) (4 Down) (BLK) "sPc(25 


HS trem 117 
IFTL=OTHENPRINT" (9 DOWN)": 
GoTosa8 trem 225 


PRINTTAB(16)"(9 DOWN) (BLK) 
TRACKERS LEFT="_ :rem 231 
‘TC=26 :FORN=1 TOTL: PRINTTAB ( 
TC)" (UP) (BLU) fT": TC=TC+2:NE 


xT trem 78 
FORN=1 108006 :NEXT: IFTL> OTH 
ENSS trem 147 


PRINTTAB(16)"£43(RVS) SORR 
Y, GAME OVER. {OFF)":PRINT 
TAB(11)"(2 DOWN)E23(RVS} P 





518 
515 
520 
525 


538 


558 
555 


680 


605 
610 


315 


620 


625 


788 


782 
704 


LAY AGAIN? (OFF) {BLK}¥/N" 

rem 164 
GETAS : IFAS=""THEN510 
rrem 79 
IFA$="Y"THEN26 rrem 259 
END rem 110 
POKET+5 , 0: POKET+6 , 240 : POKE 
T,15:POKET+1,67 :rem 188 
POKET+4 , 17: POKET+4,, 16: POKE 
T,@:POKET+1,@:RETURN 

rrem 101 
POKET+5 ,@: POKET+6 , 240: POKE 
T+1,12:POKET,143_ :rem 226 
POKET+4, 129: POKET+4, 128:PO 
KET ,@:POKET+1,0:RETURN 

rem 212 
POKET+5 , 96 : POKET+6 ,0 

rem 142 
POKET, 75:POKET+1,34:rem 98 
POKET+4 , 33 :FORN=1T040 :NEXT 
N:POKET+4 , 32 rrem 99 
POKET , 52:POKET+1,43:POKET+ 
4,33 :FORN=1T040 :NEXTN : POKE 
T+4,32 rem 108 
POKET , 97 : POKET+1 , 51 : POKET+ 
4,33 :FORN=110100 :NEXTN: POK 





ET+4,32 trem 149 
POKET ,@:POKET+1,@:RETURN 
trem 11 


POKET+5 ,@: POKET+6 , 249 : POKE 
T+12,0:POKET+13 ,240:POKET+ 
19,@:POKET+20,246 :rem 37 
FORI=1T03 zrem 13 
POKET, 195 :POKET+1, 16:POKET 
+8,4:POKET+7 ,48:POKET+15,3 
3:POKET+14,135 trem 198 
GOSUB750 :FORN=1T0200 :NEXT: 
GOSUB760 em 155 
POKET, 31:POKET+1,21:POKET+ 
8,5:POKET+7 ,71:POKET+15, 42 
:POKET+14,62 zrem 79 
GOSUB750 : FORN=1 T0300 : NEXT: 
GOSUB760 em 151 
POKET , 96 : POKET+1 , 22 : POKET+ 
8,5:POKET+7 ,152:POKET+15,4 
4:POKET+14,193 trem 189 
GOSUB75@ :FORN=1T0500 :NEX'T: 
GOSUB760 :NS=150 
FORJ=1T02 :POKET, 13! 
1,33 :POKET+8 ,8:POKET+7 , 97: 
POKET+15 ,67:POKET+14,15 
trem 68 
GOSUB750 : FORN=1 TONS: NEXTN: 
NS=5 :GOSUB760 :NEXTJ :NEXTI 
trem 253 
POKET , 223: POKET+1 , 29: POKET 
+8,7:POKET+7,119:POKET+15, 
59:POKET+14,198 trem 243 
GOSUB75@ :FORN=1T0200 :NEXT: 
GOSUB768 trem 153 
POKET , 30 :POKET+1,25:POKET+ 
8,6:POKET+7 ,71:POKET+15 , 50 
:POKET+14 ,60 rem 78 
GOSUB750 : FORN=1 T0300 :NEXT: 
GOSUB760 trem 158 
POKET , 96 :POKET+1, 22: POKET+ 
8,44:POKET+7 ,193:POKET+15, 
16: POKET+14,195 trem 253 
GOSUB750 :FORN=1 T0900 :NEXT: 
GOSUB768 trem 159 
POKET , @ : POKET+1,@:POKET+7, 
@:POKET+8 ,@: POKET+14,@:POK 
ET+15,0 rrem 58 


RETURN trem 123 
POKET+4,17:POKET+11,17:POK 
ET+18,17:RETURN :rem 239 
POKET+4 , 16 : POKET+11,16:POK 
ET+18,16:RETURN zrem 237 
POKET+5 ,O: POKET+6 , 240 :FORH 
N=255TO1STEP~2 : POKET , 50:PO 
KET+1,HN trem 254 
POKET+4, 17:POKET+4, 16 :NEXT 
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858 


860 


980 


910 


1088 
1016 
1626 


1030 


2686 


2016 


20208 


2638 


2046 


2858 
8628 


8610 


8015 
86208 


8825 


8830 


8835 


8048 


8045 


8658 


8855 


8865 


8665 
8878 
8198 


HN: POKET , :POKET+1,@:RETUR 
N trem 117 
POKET+5 , 9: POKET+6 ,@:POKET, 
246 :POKET+1,2:POKET+4, 33 
trem 9 
FORJ=1 TO80 : NEXT: POKET+4 , 32 
:POKET ,@:POKET+1 ,@ :RETURN 
trem 22 
POKET+S ,@ : POKET+6 , 236: POKE 
T,5:POKET+1,1:POKET+4 ,129 
trem 53 
FORN=1T0150@ :NEXT:: POKET+4, 
128 :RETURN rrem 28 
SN=SNAND1 :JS=PEEK(PA+SN) : 
dV=JSANDIM :rem 73 
FORJI=1T08 : IFJV=JV(JI) THE 
N1030 rem 162 
NEXT:JI=0 trem 60 
JV=JI:FB=-((JSANDEM)=ZR) = 
RETURN trem 8 
MI=INT(RND(1)* (1933-1424) 
+1424: FORN=1T04 :XX=X 
trem 163 
IF (PEEK(MI)=300RPEEK(MI)= 
31) THENMI=MI+1 :GOTO2018 
trem 199 
IF (PEEK(MI)=91ORPEEK(MI)= 
28ORPEEK(MI)=QORPEEK(MI)= 
86) THENXX=86 trem 260 
POKEMI , 27 :FORG=11T02STEP- 
1: POKEMI+T ,G :NEXTG :GOSUB8 
5@:POKEMI ,XX:POKEMI+T,@ 
trem 82 
MI=MI+1 :NEXT: IF (PEEK(MI)< 
> 36ANDPEEK(MI) <>31) THENPO 
KEMI , 86: POKEMI+T,@:rem 44 
GoTO8S rem 104 
PRINT" (CLR} { DOWN} "TAB( 8)" 
(PUR}<£23+++++ [BLK } TRACK 
ER £29+++++[BLU} ft" 
rem 173 
PRINT"{2 DOWN}£43(RIGHTJU 
SE PORT 2 JOYSTICK TO MOV 
E TRACKER." trem 88 
PRINT"(2 RIGHT}FIRE BUTTO 
N LAYS TRACK." :rem 183 
PRINT" ({ DOWN) (RIGHT }WHEN T 
RACKER IS HOME, PURPLE HE 
RBIE" rem 127 
PRINT"{2 RIGHT}CAN MOVE O 
N TRACK AND COLLECT PTS." 
trem 243 
PRINT" (DOWN) (RIGHT) THE ME 
ANIES LEAVE DEADLY X'S." 
trem 265 
PRINT"(2 RIGHT]DON'T LET 
{SPACE]TRACKER RUN INTO T 
HEM." trem 179 
PRINT" {DOWN} {RIGHT} TRACKE 
R & PURPLE HERBIE ARE PAR 
ALYZED"SPC(4)"WHEN MEANIE 
S APPEAR." trem 216 


PRINT" {DOWN} (RIGHTJUSE TR 
ACKER TO BUILD A NEW PATH 
AFTER":PRINT"(2 RIGHT)ME 
ANIES ATTACK." — :rem 211 
PRINT" {DOWEL GHE) DORE as 
{SPACE}BE TOO GREEDY. 
‘RE IN A RACE" :rem 108 
PRINT"{2 RIGHTJAGAINST TH 
E CLOCK TO GET HERBIE HOM 
EI" :GOSUB700 trem 254 
PRINTTAB(7)"{2 DOWN} (BLK) 
HIT {RVS}RETURN(OFF} TO C 
ONTINUE" rrem 33 
GETAS : IFAS=""THEN8865 
trem 201 
IFA$ <> CHRS (13) THEN8S60 
trem 248 
PRINT" {CLR} "SPC(9)" {DOWN} 
{RVS}B4} CAST OF CHARACTE 
RS (OFF}{DOWN}" :rem 222 
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8118 
8115 


8128 


8125 


8138 


8135 


8140 
8145 


8158 
8155 
8160 


8165 
8178 


8175 
9888 


9818 
9628 
9638 


9848 


9858 
9868 
9878 
9088 


16088 
19188 
16288 
18368 
18488 
18588 
16686 
16768 
16888 
16988 


11608 
11108 
11268 
11368 


LN=72:FORV=1T08 :rem 202 


PRINTTAB(12)" {DOWN} "CC$(V 
):CT$(V)" (BLK}-- ";CNS$(V 
) trem 239 


POKET+5 , 9: POKET+6 ,216:POK 
ET+1,LN:POKET,143:LN=LN-3 
trem 91 
POKET+12,91POKET+13,210:P 
OKET+8 , LN: POKET+7 , 21 :LN= 
LN-3 srem 32 
POKET+19,9:POKET+20,216:P 
OKET+15, LN: POKET+14, 269:L 
N=LN-3 trem 133 
POKET+4,17:POKET+11,17:PO 
KET+18 ,17 trem 10 
FORI=1T0560:NEXTI:rem 101 
POKET+4, 16 :POKET+11,16 :PO 
KET+18,16 trem 8 
FORJ=1T0206 :NEXTS :NEXTV 
trem 52 
FORN=TTOT+23 : POKET ,@ :NEXT 
trem 178 
PRINTTAB(8)"(2 DOWN) R43HI 
T (RVS)RETURN(OFF} TO CON 
TINUE" trem 42 
GETAS$ : IFA$="" THEN 165 
trem 263 
IFA$<>CHR$(13) THEN8 160 
trem 242 
RETURN trem 181 
PA=56326 :JM=15 :FM=16 :ZR=0 
2'T=54272 :X=32 trem 216 
FC=31 :Q=164 :FORN=TTOT+24: 
POKEN, 6 :NEXT trem 107 
FORSI=1108 :READJV(JI) :NEX 
trem 225 
POKES6334, PEEK (56334) AND2 
54:POKE1, PEEK(1)AND251 
rrem 237 
PORI=8T02047 : POKE12288+1, 
PEEK(53248+I) :NEXTI 
trem 154 
POKE1 , PEEK(1)0R4:POKE5633 
4,PEEK(56334)OR1 :rem 189 
POKE53272, (PEEK( 53272) AND 
248)+12 rem 238 
FORCH=@T039 : READNW: POKE12 
504+CH,NW:NEXTCH rrem 169 
FORV=1TO08 : READCC$(V) ,CT$( 
V),CN$(V) :NEXTV:RETURN 
trem 253 
DATA14,6,7,5,13,9,11,18 
trem 166 
DATA255,195,255,219,219, 
219,219,219 trem 35 
DATAGB, 68,195,219,219,19 
5,68,68 trem 79 
DATA219,219,219,126,126, 
219,219,219 trem 28 
DATAG, 36,255, 255,255,21 
9,24,126 trem 129 
DATA255 ,219,219,255,255, 
195,231,255 trem 33 
DATA "(BLU)", "t", TRACKER 
trom 122 
DATA "£23", "+", TRACK 
trem 215 
DATA "(PUR}", "4", PURPLE 
(SPACE}HERBIE trem 117 
DATA "(GRN)", "({RVS}$ 
{orr)",28-180 PTs 
trem 241 
18-50 P 
trem 264 
DATA “£33","{RVS} (OFF}" 
+HOME 48-200 PTS:rem 166 
DATA "{RED}","(",MEANIE 
trem 26 
DATA "{BLK}", "Vv", DEADLY 
{ SPACE}X trem 96 





DATA "B73", "£", 
Ts 





Zounds! 
(Article on page 81.) 


Program 1: Waveform 23 


18 FORL=542727054295 :POKEL,01N 
EXT: POKE54296,15 trem 16 
POKE54277 ,8:POKE54278,255:P 
OKE54276,23:REM COMPARE WIT 
H 17, 21 OR 33 trem 154 
FORF2=15TO36STEPS 1 POKE54287 
+F2 trem 244 
FORF1=1T0255STEP4 s POKE54273 
+P1iNEXTF1 1NEXTF2 : POKE54278 
1S trem 215 


Program 2: Hear See Chord 
10 FORL=542727054295 :POKEL ,@:N 
EXT:POKE54296,15 rem 16 
V1=54276 :V2=54283 1V3=54290: 
W=65 1Q=160 irem 201 
POKE54275 ,8 :POKE54282,8:POK 
£54289,8:REM SQUARE WAVE US 
ED WITH WAVEFORM 65 :rem 9 
POKE54277 ,21POKE54278 , 12:RE 
M ADSR V1 rem 203 
POKE54284 ,2:POKE54285,12:RE 
M ADSR v2 rem 201 
POKE54291 ,2:POKE54292,121RE 
M ADSR V3 rem 199 
POKE54273, 16 :POKE54272,195: 
REM C trem 199 
POKE54286 , 21 :POKE54279, 31:R 
rem 144 
POKE54287 , 25 :POKE54286 , 30:R 
trem 155 
188 FORZ=1T030:POKEV1,W:REM TO 
TAL NO. OFNOTES TO BE PLAY 
ED trem 45 
FORT=1T0Q:NEXT: REM TIME DE 
LAY trem 166 
POKEV2,W:POKEV1,W-1:REM TU 
RNS ON{4 SPACES)VOICE 2, T 
URNS OFF VOICE 1 :rem 231 
FORT=1TOQ : NEXT: POKEV2,W-1 
REM AFTER DELAY TURNS OFF 
(SPACE}VOICE 2 trem 154 
POKEV3 ,W: POKEV2,W-1:REM TU 
RNS ON{4 SPACES}VOICE 3, T 
URNS OFF VOICE 2 :rem 237 
FORT=1TOQ: NEXT: POKEV3 ,W-11 
REM AFTER DELAY TURNS OFF 
{SPACE}VOICE 3 trem 158 
Q=Q-5:NEXT:REM TIME DELAY 
{SPACE}IS DECREASING, THUS 
NOTES PLAYED MORE RAPIDLY 
trem 126 

178 FORT=1T0120@:NEX'T: END 
trem 49 


Program 3: Rubber Band In A 


Drum 
10 FORL=542727054295 :POKEL ,6:N 
EXT: POKE54296 15 trem 16 
POKE54277,61:REM ATTACK/DECA 
Y (SUSTAIN/RELEASE IS 8) 
trem 219 
PORZ=1 1048 :A=INT( 68*RND(1)) 
+11:Q=INT(168*RND(1))+1:REM 
{SPACE}Z = NO. OF SOUNDS 
rem 209 
POKE54273,40:REM UNCHANGING 
FREQUENCY FOR VOICE ONE 
trem 25 
F2=INT(55*RND(1))+11REM VAR 
IABLE FREQUENCY FOR VOICE 2 
TO BE POKED NEXT LINE 


28 


48 
58 


20 
38 


40 
58 
68 
76 
88 
98 


116 
126 


138 


149 


158 


168 


26 


38 


trem 85 
68 POKE54287,F2 trem 67 
78 POKE54276,23:REM TURNS ON V 


OICE 1 WITH WAVEFORM 23 
trem 53 








88 FORT=1TOQ:NEXT:REM VARIABLE 
TIME BETWEEN SOUNDS 

trem 247 

98 POKE54276,128:NEXTZ:REM TUR 

N OFF VOICE 23 WITH A 128 ¥ 

IELDS UNIQUE SOUND rrem 153 


Program 4: Harmonix 
16 FORT=542727054295 :POKET ,@:N 
EXT: POKE54296, 15 trem 32 
26 AD=15:SR=196:REM ENVELOPE V 
ALUES TO BE POKED INTO VOIC 
ES 2 AND 3 NEXT LINE 
trem 263 
30 POKE54284, AD: POKE54291,AD1P 
OKE54285 ,SR: POKE5S4292,SR 
trem 235 
48 POKES4283, 211:POKE54299,23:R 
EM TURNS(2 SPACESJON VOICES 


2 AND 3 trem 126 
5@ PORF1=200TO1STEP-19 : POKES42 
73,F1 trem 65 


68 FORF2=200TO1STEP-50:FORF3=1 
'TO4 : POKE54 280 , F2: POKE5S4287, 
F3:NEXTF3 trem 47 

76 NEXTF2 :NEXTF1 :FORQ=15TOOSTE 
P-.1:POKE54296 ,Q:NEXTQ1REM 
AGENCE J SzOrE SOUND GRADUALL 

trem 93 


Prosar 5: Falling Sitar 
18 FORL=54272T054295:POKEL,@:N 


EXT: POKE54296,15 trem 16 
28 POKE54277,4:POKE54278,12:RE 
M ADSR trem 68 


38 F2=158:0=50:REM Q IS STARTI 
NG SPEED,(2 SPACES}DECREASE 

D IN LINE 80 TO SPEED UP 
trem 79 
OF CYCLE 
rrem 92 
45 Pl=INT(168*RND(1))+18:POKES 
4276,23:REMEMBFR THIS WAVEF 
ORM? trem 111 
5@ FORT=1T00 :NEXTT trem 207 
68 poiess27 07 F1:REM RANDOM FRE 


48 FORZ=1T050:REM NO. 
s 


trem 74 
78 POKES4287 + F2:REM DESCENDING 
FREQ trem 108 


88 POKE54276 , 26:Q=Q-1:F2=F2-3: 
NEXTZ:POKE54273,30:REM 30 G 
IVES LAST TONE ONLY:rem 230 


Program 6: Glissando 


18 FORT#=54272T054295 :POKET,@:N 

EXT: POKE54296,15 trem 32 

20 A=15:D=107:REM ADSR VALUES 

{SPACE}TO BE POKED INTO ENV 
ELOPE REGISTERS NEXT LINE 

trem 5 

38 POKE54277,A:POKE54284,A:POK 

£54291 ,A:POKE54278,D: POKES4 

285 ,D:POKE54292,D trem 99 

40 POKE5S4286 ,50:POKE54287,46:R 

EM CAREFULLY CHOSEN FREQUEN 

CIES FOR VOICE 3 rem 127 

50 POKE54276 ,33:POKE54283,23:P 

OKE54290,23:REM TURNS ON AL 

L THREE VOICES trem 157 

6@ FORF1=10TOSOSTEP] :POKE54273 

+F1:REM VOICE 1 FREQUENCIES 

trem 231 

78 FORF2=30TO1STEP-5 : POKE54280 

+P2:REM VOICE 2 FREQUENCIES 

trem 232 

75 NEXTF2:NEXTF1l trem 19 

88 POKE54276,32:POKE54283,32:P 

OKE54290,32:REM TURNS VOICE 

S OFF trem 148 





Machine Language 
For Beginners 


(Article on page 77.) 


Program 2: Datastuffer—64 
Version 


1@ FORI=491521049361 :READD: POK 
EI,D:CS=CS+D:NEXT rem 196 
28 IFCS<>36003THEN PRINT"ERROR 
IN DATA STATEMENTS":rem 58 
58800 DATA169,6,133,163,169,8, 
133,164,169,88 :rem 174 
DATA141, 268,192, 169,195, 
141,209,192,169,0:rem 68 
DATA141,211,192,168,145, 
163, 230,163, 208,200 
rem 137 
DATA173, 208,192,145,163, 
206,173, 269,192,145 
rrem 161 
DATA163, 24,173, 208,192,1 
85,10,141,208,192:rem 51 
DATA173, 269,192,105,0,14 
1,269,192,200,169:rem 55 
DATA131,145,163, 200,148, 
218,192,168,8,177:rem 38 
DATA167, 168, 169,0, 32,145 
1179,32,221,189 :rem 235 
DATA162,1,172,218,192,18 
9,0,1,248,7 trem 6 
DATA145, 163,200,232,76,8 
5,192,238,211,192:rem 68 
DATA169, 44,145,163, 208,2 
38,167, 268,2,230:rem 254 
DATA168, 173,211,192, 201, 
16,249,3,76,64 :rem 155 
DATA192,136,169,8,145,16 
3,141,211,192,165:rem 58 
DATA163,133, 165,165,164, 
133,166, 206,140,210 
rrem 145 
DATA192, 24, 165,163,109, 2 
16,192,133,163,169 
trem 114 
DATAS, 161, 164,133,164, 16 
8,1,145,165,136 :rem 200 
DATA165, 163,145, 165,56,1 
65,169, 229,167,133 
trem 135 
DATA2, 165,176,229, 168,5, 
2,176,26,169 trem 82 
DATAG, 136,145,163, 200,14 
5,163,200,145,163:rem 46 
DATAS6, 152, 101,163,133,4 
5,169,0,161,164 :rem 269 
DATA133,46, 76,123, 227,76 
128,192,8,0 trem 15 


Program 3: Datastuffer-—VIC 
Version 
18 FORI=26486T020689 : READD: POK 
EI,D:CS=CS+D:NEXT trem 191 
26 IFCS<>27930THENPRINT "ERROR 
(SPACE}IN DATA STATEMENTS" 
trem 73 
DATA169,0,133,163,169,18 
1133,164,169,80 :rem 223 
DATA141, 208,88, 169,195,1 
41,209,80,169,8 :rem 226 
DATA141,211,80,168,145,1 
63,230,163, 208,200 
rem 85 
DATA173, 208,860,145, 163,2 
88,173,269,80,145:rem 57 
DATA163, 24,173, 208,80,10 
5,10,141,268,88 :rem 263 


50018 
58620 


50838 


50040 
50658 
50868 
58078 
58686 
58898 
50108 
58118 
58128 


56138 


58146 


50158 
50168 


58178 
50188 
58198 
56200 


50000 
58010 
58020 


58030 
50048 





58050 DATA173,209,80,105,8,141 





50068 63,208,148, 
218,88,160,8,177:rem 242 
DATA167, 168,169,0,32,145 
,211,32,221,221 :rem 209 
DATA162,1,172, 216,808,189 
1,1,248,7 trem 218 
DATA145, 163,200, 232,76,8 
5,88,238,211,80 :rem 220 
DATA169, 44,145,163, 200,2 
38,167,208,2,230:rem 254 
DATA168, 173,211,808, 201,1 
6,240,3,76,64 trem 163 
DATASB,136,169,6,145,163 
141,211,80,165 trem 210 
DATA163, 133, 165,165,164, 
133,166,206,140,210 

trem 145 
DATABB, 24, 165,163,169, 21 
6,80,133,163,169 :rem 19 
DATAG,161,164,133,164,16 
8,1,145,165,136 trem 200 
DATA165, 163,145,165,56,1 
65,169,229,167,133 

trem 135 
DATA2, 165,176,229, 168,5, 
2,176,26,169 trem 82 
DATAG, 136,145,163, 208,14 
5,163,208,145,163:rem 46 
DATAS6 , 152,101, 163,133,4 
5,169,0,161,164 :rem 269 
DATA133, 46, 76,103,228, 76 
128,88 ,8,0 :rem 218 


Program 4: Stufferbas 
16 INPUT"START ADDRESS"; SA 
rrem 152 
28 INPUT"END ADDRESS"; EA 
rrem 212 
30 H&=SA/256 :L%=SA-256*H3 : POKE 
167,L%:POKE168,H% :rem 143 
40 H8=EA/2561:L8=EA-256*H8 : POKE 
169,L8:POKE170,H$ :rem 111 
58 SYS49152:REM VIC USERS SYS 
{SPACE} 20480 rrem 248 


58070 
50080 
58898 
58108 
50110 
56120 
50130 


50140 
58150 
58160 


58170 
50180 
50198 
58260 





Friendly Alien 


(Article on page 70.) 


Program 1: Friendly Alien—64 
Version 


6 GOTO28 rrem 209 
7 PRINT" (HOME) (BLU}TIME: ";MID 
$(TI$,3,2);"2";RIGHT$(TI$,2) 
trem 177 

8 IFTI$>TU$THENPRINT" (HOME }TIM 
E IS UPII1(4 SPACES}":FORI=1 
101500 :NEXT:GOTO1300:rem 106 


18 RETURN trem 65 
11 LO=LO-Q2: RETURN trem 159 
12 LO=L0-Q1:RETURN trem 159 
13 LO=LO+P:RETURN trem 108 
14 LO=LO0+Q3:RETURN trem 161 
15 LO=LO+Q2:RETURN trem 161 
16 LO=LO+Q1 :RETURN trem 161 
17 LO=LO-P:RETURN trem 114 
18 LO=LO-Q3 : RETURN trem 167 


28 POKES6 , 48: POKE52, 48:CLR 
trem 23 

30 POKE53281,1:PRINT" {CLR} 

{6 DowN}(8 SPACES} {RVS} 
{BLU}*****PRIENDLY ALIEN*** 
** {OFF} trem 1 

35 PRINT"({4 DOWN){4 RIGHT} 
{18 SPACES) (BLK}SETTING UP. 
trem 218 
36 POKES6334, PEEK( 56334) AND254 
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+ POKE1, PEEK(1)AND251 
trem 138 
48 NM=12288 :FORI=NMTONM+511:PO 
KEI , PEEK( 1+48969) :NEXT 
rrem 199 
42 FORI=@T07 : POKENM+8* 59+I , PEE 
K(53248+81*8+I) :NEXT: POKENM 
+8*5943,255 trem & 
44 FORI=9T07 :POKENM+8*61+I, PEE 
K(53248+8*77+I) :NEXT 
trem 219 
48 POKE1, PEEK(1)OR4:POKE56334, 
PEEK(56334)OR1:CK=8:rem 144 
50 PORI=NM+272TONN+311 :READA:C 
K=CK+AsPOKEI ,A:NEXT :rem 95 
58 FORI=NM+344TONM+383 : READA:C 
K=CK+A: POKEI ,A:NEXT: rem 112 
68 FORI=9T031 :READA:CK=CK+A: PO 


KENM+I,A:NEXT trem 6 
69 FORI=9T07 : READA:CK=CK+A: POK 
ENM+8*60+1I,A:NEXT trem 205 
76 IPCK=15391THENIG@@ :rem 132 


71 PRINT"**ERROR IN DATA STATE 
MENTS**" : PRINT" { DOWN) **CHEC 
K LINES 8070-8093**" :END 


trem 162 
108 X=RND(-TI) :POKE53286,0:POK 
£53281,0 trem 188 


101 PRINT" (CLR) { DOWN) (GRN} 
(RVS}GUIDE THE LITTLE ALIE 
N WITH A JOYSTICK 
(2 SPACES}IN PORT 2"; 


trem 243 
118 PRINT" AND PICK UP ALL THE 
CANDY. trem 55 


135 PRINT:PRINT" (RVS)} (RED) THEN 
GUIDE HIM TO THE PHONE AN 

D THEN TO THE SPACESHIP. 
trem 18 
168 PRINT:PRINT" ( RVS} {YEL} LOOK 
OUT FOR THE CANS OF COLA. 
trem 22 
161 PRINT" IF HE(4 SPACES)}DRIN 
KS COLA HE WILL HAVE AN AL 
LERGIC"; trem 101 
165 PRINT"{4 SPACES)REACTION A 
ND CAN'T BE GUIDED.:rem 39 
168 PRINT:PRINT"(RVS}(CYN)IF H 

E TOUCHES A FLU BUG, "; 
trem 148 

169 PRINT"{RVSJOR IF YOU RUN 
(2 SPACES}OUT OF TIME, HE 
(SPACE)WILL GET THE FLU AN 
D CANNOT GO HOME. :rem 91 
170 PRINT"({7 RIGHT) (RVS) { DOWN) 
&8]***yoU HAVE 2 MINUTES** 
* trem 68 
508 PRINT" (DOWN}(8 RIGHT) (RVS} 
{GRNJENTER SKILL LEVEL 1-5 


{oFF}" trem 41 

502 GETA$:IFA$=""THEN5SO2 
trem 81 
503 A=VAL(A$) :IFA<1ORA>STHENSO 
6 trem 63 
585 SC=1624 trem 52 


518 CM=54272:PRINT"(CLR}":POKE 
53280, 14:POKE53281,1:P5=15 
rrem 44 
511 O=G:H1=1 :H2=32:H3=3 :H4=34: 
H5=35 :H6=36 :H7=42 :H8=61 :H9 
=2:P6=45:P7=46:PB=47 
trem 31 
512 VL=54296 :SL=542721SH=54273 
:WP=54276 1Q1=39 :Q2=40 :03=4 
1:04=42::P1=56320:P=1 
trem 125 
515 POKE53272, (PEEK( 53272) AND2 
40)+12:POKESL+5,17 :POKESL+ 
6,241 trem 226 
519 REM: ***BUILD BORDER 
:rem 105 
520 FORB=SC+Q2TOSC+88: POKES, 35 
:POKECM+B,6:NEXT trem 141 
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525 


538 


535 


608 


605 
618 
612 
6208 


622 
700 
705 
7168 
726 
725 


800 
803 


810 
828 
822 
825 
830 
899 


908 
926 


922 
930 


935 


1008 


1058 


1688 
1699 
1108 
1162 


1163 
1118 
1115 
1120 
1138 
1135 


1148 
1199 


1208 


1216 
1226 


FORB=SC+79TOSC+999STEPQ2 :P 
OKEB, 35 : POKECM+B, 6 :NEXT. 
trem 129 
FORB=SC+998TOSC+960STEP-1: 
POKEB, 35:POKECM+B, 6 :NEXT 
trem 134 
PORB=SC+960TOSC+Q2STEP-Q2: 
POKEB, 35: POKECM+B, 6 :NEXT 
rrem 182 
***PLACE FLUBUGS 
trem 175 
FORI=1T09*A trem 128 
GOSUB4960 trem 219 
IFPEEK(X)=35THEN610:rem 97 
POKEX, 42 :POKECM+X, 3:IFI<=A 
‘THENF ( I) =X: POKEX+CM, 7 
trem 
NEXT trem 
REM: ***PLACE COLA: rem 
FORI=1T015*A rrem 174 
GOSUB4088 trem 226 
IFPEEK(X)=350RPEEK(X)=420R 
PEEK (X-Q2)=360ORPEEK(X+Q2)= 
36THEN716 trem 252 
POKEX , 36 : POKECM+X, 2 :NEXT. 
trem 13 
REM: ***PLACE CANDY :rem 8 
C=2:FORI=1T020 :C=C+1:1FC>7 
THENC=2 trem 229 
GOSUB4900 trem 221 
IFPEEK(X) <> 320RPEEK(X+1) <> 
320ORPEEK(X~1) <> 320RPEEK(X+ 
Q2)<>32THENB10 trem 249 
IFPEEK(X~-Q2) <> 32THENS16 
trem 88 
POKEX, 341 POKECM+X ,C:NEXT 
trem 29 
RP=20:LO=SC+918:TI$="80000 
O":TUS="000159" :rem 164 
REM: ***MAIN LOOP :rem 165 
IPRP=.THEN3G08 trem 39 
POKELO , 37: POKELO+02 , 38: POK 
ELO+CM, 4: POKELO+CM+Q2,4 
trem 48 
GosuB7 trem 84 
POKESH , 56: POKEVL, 10 : POKEWF 
172G0TO1508 trem 98 
POKEWF , 16 trem 0 
AA=P5~(PEEK(P1) ANDP5) 
trem 218 
LT=LO:ONAAGOSUB11,15,10,1 
7,18,16,16,13,12,14 
trem 145 
POKELT , H2: POKELT+Q2, H2 
trem 155 
***COLLISION CHECKER 
trem 16 
TL=PEEK(LO) : BL=PEEK( LO+Q2 
) trem 116 
IFTL=H1 ORTL=H3ORTL=H5ORBL 
-ORBL=H9ORBL=H5 THENLO=LT 
1GOTO988 trem 192 
IFTL=H2ANDBL=H2THEN9GO 
trem 139 
IFTL=H7ORBL=H7 THEN1 388 
rrem 146 
IFTL=HBORBL=H8THEN3583 
trem 151 
IFTL=H6ORBL=H6THEN1 460 
trem 146 
IPTL=H4ORBL=H4 THENRP=RP-1 
:GOTO1288 trem 217 
IFTL=P6ORTL=P70RTL=P8ORBL 
=PBTHEN3160 trem 174 
GoTO988 zrem 152 
REM: ***CANDY PICKUP 
trem 171 
POKELO , 37: POKELO+Q2, 38:PO 
KELO+CM, 4: POKELO+CM+02 ,4 
trem 88 
POKESH, 150:POKEWF, 33:FORL 
=1T025 :NEXT trem 70 
POKESH , 268 : FORL=1T025 :NEX 


REM: 


219 
217 
183 





REM: 








T: POKEWF , 32 :GOTO90B 
trem 78 
REM: ***PLUBUG COLLISION 
rrem 226 
POKELO , 37: POKELO+Q2, 38: PO 
KELO+CM, 3: POKELO+CM+Q2/, 3 
zrem 87 
POKESL , 158: FORL=1T05 : POKE 
WF, 17:POKESH , 25 :FORX=1T03 
@:NEXT:POKEWF,16 :rem 56 
POKEWF, 33 :FORX=1T05@ :NEXT 
:POKESL , 6 :FORX=1 T0200 :NEX 
T:NEXT: POKEWF,32 :rem 149 
GoTO2680 trem 198 
REM: ***COLA COLLISION (G 
LUG-GLUG) trem 25 
POKELO , 37 : POKELO+Q2 , 38 : PO 
KELO+CM, 4: POKELO+CM+Q2,4 
rrem 90 
POKESL , 158 : FORL=1T04 : POKE 
WF, 17 :POKESH, 25 :FORX=1T01 
5:NEXT:POKEWF,16 :rem 59 
FORX=11025 :NEXT: POKESL , 8+ 
FORX=1 T0260 :NEX'T :NEXT 
rem 106 
POKELO , 32: POKELO+Q2, 32: PO 
KELO+CM, 1 :POKELO+CM+02 ,1 
trem 79 
AA=INT( RND(1)*8)+1:GOTO18 
58 trem 36 
REM: ***SELECT & MOVE FLU 
BUG trem 85 
D=INT( RND(P)*A)+P:rem 238 
LT=L0:LO=F(D) :X=INT(RND(P 
)*8)+P:FT=F(D) — srem 133 
ONXGOSUB11,12,13,14,15,16 
117,18 rrem 161 
F(D)=LO rrem 129 
LO=LT : [FPEEK(F(D)) <>H2AND 
PEEK(F(D) ) <>37ANDPEEK(F(D 
))<>38THENF(D)=FT :rem 71 
POKEFT , H2 rem 55 
IFF (D)=LOORF(D)=LO+Q2THEN 
POKELO+CM , H3 : POKELO+CM+02 
H3 :GOTO1310 trem 181 
POKEF (D),H7:POKEF(D)+CM, 7 
1GOTO935 trem 244 
POKEVL, .:POKESH,. :rem 75 
PRINT" {CLR} {5 DOWN) (BLK}H 
E CAUGHT THE FLU FROM THE 
FLU BUG AND{2 SPACES}CAN 
NOT GO HOME." = :rem 122 
GOTO2849 trem 195 
PRINT" (CLR) (RIGHT} 
{3 Down) (BLK)(15 SPACES) 
{Rvs)YoU WONII" — :rem 82 
PRINT" {DOWN} (11 SPACES)"; 
MIDS$(TT$,3,2);" MINUTE "; 
RIGHTS (TT$,2)" SECONDS 
rrem 148 
PRINT" { DOWN} { RIGHT} 
{13 SPACES}SKILL LEVEL"A 
trem 1 
PRINT"({2 DOWN) (3 RIGHT) 
{12 SPACES) {RVS)PLAY AGAI 
N?" trem 247 
POKE53272,21 rrem 148 
GETA$ : [FAS="""THEN2050 
zrem 177 
IFAS="Y"THENRUN1@@:rem 79 
PRINT"{CLR}":END :rem 61 
REM: ***BUILD SPACEPHONE 
trem 207 
Q=SC+80 : R=SC+160 :GOSUB6BO 
@ :GOSUB7 : POKELO , 32 : POKELO 
+02,32:LO=SC+918 :rem 89 
PRINT" {HOME}({2 DOWN} 
{RIGHT} {CYN}+,{2 SPACES)" 
:PRINT"{RIGHT}-.{YEL}/ "+ 
RP=20 :GOTO96B rem 181 
3699 REM: ***RING SPACEPHONE 
trem 135 
3188 LO=SC+84 :POKELO, 37:POKELO 


1299 
1388 


1316 


1326 





1325 
1399 


14868 


1416 


1412 


1415 


1416 
1499 


1588 
1516 


1515 
1634 
1635 


170868 
1762 
1716 


2608 
2601 


2002 
2625 


2636 


2035 


2046 


2045 
2056 
2655 
2068 
2999 


3088 


3082 











31198 


3120 


3399 
3488 
3481 


3462 


3406 
3408 
3418 
3425 
34308 


3435 
3448 


3458 
3452 
3460 
3462 
3478 
3480 
3498 
3492 
3495 
3499 
3508 


3505 
35108 


3526 
3599 
3608 


3640 
40008 


5999 
6008 


6022 


8878 


8875 


+Q2,38 :POKELO+CM, 4: POKELO 
+CM+Q2,4 trem 152 
POKEWF , 17 :FORL=1T03 :FORM= 
1 T0503 POKESH, 158 :FORN=1TO 
13:NEXT trem 221 
POKESH , @ :NEXT:GOSUB7 : FORM 
1101006 :NEXT: GOSUB7 :NEXT 
:POKEWF , 16 trem 18 
REM: ***BUILD SPACESHIP 
trem 132 
Q=SC+200 : R=SC+440 :GOSUB7: 
GOSUB6@00:GOSUB7 :rem 44 
PRINT" {HOME} {2 DOWN} 
(RIGHT) (4 SPACES}":PRINT" 
{RIGHT} {4 SPACES}":rem 19 
LO=SC+918 : POKELO , 37: POKEL 
0+Q2, 38: POKELO+CM, 4: POKEL 
O+CM+02 ,4 trem 211 
GOSUB7 :GOSUB3600 :GOSUB7 
rrem 248 
PRINT" {7 DOWN) "SPC( 26)" 
{cyn} ; trem 172 
GOSUB7 :GOSUB3606 :GOSUB7 
trem 243 
PRINT" (HOME) (6 DOWN) "SPC( 
19)"{CYN)@#B trem 31 
PRINTSPC(17)"<<###<< 
trem 113 
PRINTSPC(19)"A#C rrem 198 
GOSUB7 :GOSUB360 :GOSUB7 
trem 246 
PRINT" {HOME} {5 DOWN} "SPC( 
18)" (CYN)@###B trem 81 
PRINTSPC(18)"(CYN} ####¢ 
rem 107 
PRINTSPC(13)"(CYN) ###¢#¢# 


eeeeetes trem 195 
PRINTSPC(18)"(CYN)} ##### 
trem 108 
PRINTSPC(18)"{CYNJA###C 
trem 169 
GOSUB7 :GOSUB3608 :GOSUB7 
rrem 250 


T=SC+343 : FORB=1T03 :POKET, 
H8 : POKECM+T, H3 : T=T+Q3 :NEX 


T:POKESC+387,H2 :rem 164 
POKESC+427 ,H2 trem 5 
POKEVL, @ : POKESH, 0: RP=29:G 
OTO908 trem 233 
REM: ***PUT ALIEN ON RAMP 

trem 164 


TT$=TI$ :LO=SC+386 : POKELO, 
37 :POKELO+Q2 , 38 :POKELO+CM 
14:POKELO+CM+02,4:rem 213 
FORL=1T01500:NEXT :rem 80 
POKESC+386 , 32: POKESC+426, 
32 :POKESC+384 , 32 :POKESC+3 
43,32: POKESC+425 , 32 
trem 71 
FORL=1T02000 :NEXT:GOTO262 
trem 133 
***SPACESHIP SOUND 
trem 159 
POKEVL, 15 : POKEWF , 33 : FORL= 
1103 :FORM=1T0255STEP2 : POK 
ESH, MtNEXT :GOSUB7 :NEXT 
rrem 94 
POKEWF,32:RETURN :rem 6€ 
X= INT (RND(1)*749)+SC+3*Q2 


5 
REM: 


RETURN trem 166 
REM: ***RELOCATE FLUBUGS 
rem 227 


FORI=PTOA:IFF(I)>QANDF(I) 
<RTHENPOKEF (I) ,H2:F (I)=P{ 


1)+288 trem 192 
NEXTI:GOSUB7 :RETURN 
trem 93 


DATA, 6 62424444 ¢255,255,2 
55,255,255,255,255,255,,, 
,56,56,56,56,56 :rem 168 
DATA36 ,126,126,608,24,24,2 
4,60,126,189,189,189,189, 


86) 


8085 


86998 


8892 


8093 


Pr 
Vei 


36 ,66,66 trem 125 
DATA, ,31,127,127,255,255, 
255,,,248,248,224,192,128 
254,253,248, 240,224 

trem 202 
DATA192,128,,,,128,64,32, 
18,9,6,63,33,63,63,43,53, 
235,63 trem 243 
DATA7,31,63,127,127,255,2 
55,255,255,255,255,127,12 
7,63,31,7 trem 151 
DATA224 , 248, 252,254,254,2 
55,255,255,255,255,255,25 
4,254,252,248,224 :rem 51 
DATA, ,,255,255,255,, 

trem 246 


‘ogram 2: Friendly Alien—VIC 
rsion 


See instructions in article before typing. 


6 
i 


9 
ll 





95 
96 


188 
116 


135 


168 


161 


GoTO28 rrem 209 
PRINT" {HOME)(BLU)TIME: ";MID 
$(TI$,3,2);"2"7 RIGHTS (TI$,2) 
trem 177 
IFTI$>TUS$ THENP RINT" { HOME } TIM 
E IS UPI11{4 SPACES)":FORI=1 
101500 :NEXT:GOTO1300:rem 106 
RETURN trem 25 
LO=LO-02 :RETURN trem 159 
LO=LO-Q1 :RETURN trem 159 
LO=LO+P1 : RETURN trem 157 
LO=LO+Q3 :RETURN trem 161 
LO=LO+Q2 :RETURN trem 161 
LO=LO+Q1 RETURN trem 161 
LO=LO-P1 : RETURN trem 163 
LO=LO-03 :RETURN irem 167 
IFPEEK( 44) <32THENPOKES6 , 28: 
POKE52, 28 :CLR trem 80 
PRINT" {CLR} (6 DOWN) (RVS} 
{BLK}****FRIENDLY ALIEN**** 
{oFF} zrem 85 
PRINT" (4 DOWN) (4 RIGHT]SETT 
rrem 74 
:FORT=NMTONM+511 :POK 
ET, PEEK(1+25600) :NEXT 
rrem 146 
FORI@NM+272TONM+311 : READA: P 
OKEI ,A:NEXT trem 96 
FORI=NM+344 TONM+383 : READA: P 
OKEI ,A:NEXT rrem 113 
FORI=0TO7 : POKENM+8* 59+I , PEE 
K(32768+81*8+I) :NEXT: POKENM 
485943, 255 trem 6 
FORI=0'T07 : POKENM+8*61+1, PEE 
K(32768+8*77+1) :NEXT:CK=O 





trem 22 
FORI=6TO31 : READA: CK=CK+A:PO 
KENM+I,A:NEXT trem 6 
FORI=6T07 : READA: CK=CK+A: POK 
ENM+8*60+I,A:NEXT trem 205 
FORI=832T0936 : READA: CK=CK+A 
:POKEI ,A:NEXT trem 234 
IFCK=16964THEN1@@ rem 146 
PRINT" {RVS) (BLK) {DOWN} *DATA 


STATEMENT ERROR*{DOWN}* SE 
E LINES 8070-9040*":END 
rrem 55 
X=RND(-TI) trem 37 
PRINT" {CLR} {BLU} {RVS}GUIDE 
THE LITTLE ALIENWITH A JO 
YSTICK AND(3.SPACES}PICK U 
P ALL THE CANDY. rem 110 
PRINT" (BLK}(RVS)THEN GUIDE 
EEN 120, THR ) BHOME| AND pean 
ESHIP. 
PRINT* (own) (L) (RvS] LOOK 
OUT FOR THE CANS OF COLA. 
IF HE DRINKS COLA,"; 
trem 19 
PRINT" HE WILL HAVE AN ALL 
ERGIC REACTION AND CAN'T B 
E GUIDE trem 222 








165 


167 


169 
508 


582 


583 


505 


518 


515 
517 
519 
528 
525 


538 


535 


688 
685 
618 
612 
626 


622 
788 
705 
718 
726 


725 


888 
883 


810 
8208 


825 
838 
899 


9808 
928 


922 
938 


935 


PRINT" (DOWN) {BLK} (RVS}IF H 
E TOUCHES A FLU{3 SPACES}B 
OR IF YOU RUN OUTOF TI 
ME, "7 trem 206 
PRINT" HE WILL GET 
{2 SPACES}THE FLU AND CAN’ 
T GO{2 SPACES}HOME. 

trem 199 
PRINT" { DOWN} {BLU} {RVS} YOU" 
VE 1 MIN. 38 SEC. :rem 255 
PRINT" { DOWN} { PUR} {RVS} ENTE 
R SKILL LEVEL 1-5{oFF} 

rrem 157 
GETAS : IFAS=""THEN5@2 

rem 81 
A=VAL (A$) :IFA<LORA> 5 THENS 
8 trem 63 


SC=4*(PEEK( 36866) AND128)+6 
4* ( PEEK( 36869) AND112) 

trem 16 
CM=37888+4* ( PEEK( 36866) AND 
128)-SC:PRINT"{CLR}" 


trem 161 
POKE36869 , PEEK( 36869) AND24 
BOR15 trem 252 


VL=36878 : SL=36874 : SH=36876 
#Q1=21:Q2=22:93=23:Pl=1 
trem 17 
REM**BUILD BORDER srem 5 
FORB=SC+Q2TOSC+44:POKEB, 35 
:POKECM+B,6:NEXT :rem 141 
FORB=SC+4 3TOSC+5@5STEPQ2 :P 
OKEB, 35: POKECM+B,6 :NEXT 
trem 163 


FORB=SC+504TOSC+484STEP~1: 
POKEB, 35 : POKECM+B, 6 NEXT 
trem 118 
FORB=SC+484TOSC+Q2STEP-Q2: 
POKEB, 35 :POKECM+B, 6 :NEXT 


trem 183 
REM**PLACE FLUBUGS :rem 75 
FORI=1T09*A trem 128 
GOSUB4806 trem 219 


IFPEEK(X)=35THEN610:rem 97 


POKEX , 42 : POKECM+X, 3 :IFI<=A 
'THENF (I)=X:POKEX+CM, 7 

trem 219 
NEXT trem 217 
REM**PLACE COLA rrem 83 
FORI=1T012*A trem 171 
GOSUB4088 rrem 220 
IFPEEK(X)=350RPEEK(X)=420R 


PEEK ( X-02 )=36ORPEEK(X+02)= 
36THEN710 trem 252 
POKEX , 36 : POKECM+X, 2 :NEXT. 


trem 13 
REM**PLACE CANDY :rem 164 
C=2:FORI=1T026 :C=C+1:1FC>7 
‘THENC=2 trem 229 
GOSUB4808 trem 221 
IFPEEK(X) <> 320RPEEK(X+1) <> 


32ORPEEK(X-1) <> 320RPEEK (X+ 
Q2) <> 320RPEEK(X-Q2) <> 32THE 


N810 trem 238 
POKEX , 34 : POKECM+X , C:NEXT 
trem 29 
RP=20 : LO=SC+468 : TI$="68080 
6": TUS="880129" srem 153 
REM**MAIN LOOP srem 65 
IFRP=0 THEN3608 zrem 41 


POKELO , 37 : POKELO+Q2 , 38: POK 
ELO+CM, 4: POKELO+CM+Q2 ,4 
trem 48 
GOSUB7 zrem 84 
POKEVL , 18 :POKESH , 220:GOTOL 
588 trem 247 
POKEVL,@:POKESH,9 rem 46 


1888 SYS832:AA=PEEK(839) 


trem 163 


1858 LT=LO:ONAAGOSUB11,12,13,1 


4,15,16,17,18 trem 119 
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1688 


1699 
1166 


1162 


1116 
1115 
1126 
1138 
1135 
1148 
1199 
1288 
1210 
1220 


1299 
1308 
1385 
1316 
1326 
1325 


1399 
1498 


1410 


1412 
1415 


1416 
1499 


1588 
1516 


1515 
1635 


1766 
1762 
1718 


2688 
2061 


2882 
2625 


POKELT , 32 : POKELT+Q2 , 32 
trem 113 
REM**COLLISION CK :rem 69 
TL=PEEK( LO) :BL=PEEK(LO+Q2 
trem 116 
IFTL=10RTL=30RTL=350RBL=9 
ORBL=20RBL=35 THENLO=LT :GO 


TO98B trem 185 
IPTL=420RBL=42THEN1300 
trem 99 
IFTL=610RBL=61 THEN3599 
trem 101 
IFTL=360RBL=36THEN1408 
trem 98 


IFTL=340RBL=34THENRP=RP-1 
3GOTO1208 trem 175 
IFTL=450RTL=460RTL=470RBL 
=47THEN3106 trem 58 
GOTO9BB trem 152 
REM**CANDY PICKUP :rem 71 
POKELO , 37: POKELO+Q2, 38:PO 
KELO+CM, 4: POKELO+CM+Q2 ,4 
trem 88 
POKESH, 158: POKEVL,15:FORL 
=1T010:NEXT trem 69 
POKESH , 200 1: FORL=1TO16 :NEX 
Ts POKESH ,@ :POKEVL ,@ :GOTO9 


88 trem 126 
REM**FLUBUG COLLISION 
trem 126 


POKELO , 37: POKELO+Q2, 38:PO 
KELO+CM, 3 :POKELO+CM+Q2 ,3 

trem 87 

FORZ=1TO16 trem 124 

POKESH ,150:POKEVL,15:FORL 

=1TO50 :NEXT trem 74 

men 156:FORL=™1T056 :NEX 

trem 178 

PORES @:PORL=1T050 :NEXT: 

NEXT: POKEVL ,@ : POKESL ,@ :GO 


T02688 trem 198 
REM**COLA COLLISION (GLUG 
=GLUG) trem 181 


POKELO , 37 : POKELO+Q2, 38:PO 
KELO+CM, 4 : POKELO+CM+(2 ,4 
trem 98 
POKESH , @ : POKEVL, 16 : FORX=1 
03 sPOKESL , 210 :FORL=1T019 
:NEXTs POKESL , 256: FORL=1TO 


25:NEXT trem 137 
POKESL , @ : FORL=1 T0200 :NEXT 
NEXT trem 244 


POKELO , 32: POKELO+Q2 , 321 PO 
KELO+CM, 1 :POKELO+CM+Q2 ,1 
trem 79 
AA=INT(RND(1)*8)+1:GOTO10 
56 trem 36 
REM**SELECT & MOVE FLUBUG 
rrem 241 
D=INT(RND(1)*A)+1:rem 176 
LTsLO:LO=F(D) :X=INT(RND(1 
)*8)+1 :PT=P(D) trem 71 
ONXGOSUB11,12,13,14,15,16 
117,18 trem 161 
F(D)=LO:LO=LT: IFPEEK(F(D) 
) <> 32ANDPEEK(F(D)) <>37AND 
PEEK(F(D) )<> 38THENF(D)=FT 
trem 31 
POKEFT , 32 trem 34 
IFF (D)=LOORF (D)=L0+Q2THEN 
POKELO+CM, 3 : POKELO+CM+Q2, 
3:GOTO1305 trem 41 
POKEF(D) , 42:POKEF(D)+CM,7 
:GOTO935 trem 219 
POKEVL,@:POKESH,@ :rem 79 
PRINT" {CLR} {5 DOWN) (BLK}H 
E CAUGHT THE FLU FROMTHE 
{SPACEJFLU BUG AND CAN 
{3 SPACES }NOT GO HOME." 
trem 122 
GoTO2846 trem 195 
PRINT" {CLR} {RIGHT} 
{3 powN}{BLK}{5 SPACES} 
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2638 


2635 


2648 


2845 
26568 
2055 
2668 
2999 


3688 


3862 


3699 
31088 


3118 


3126 


3399 
3408 


3481 


3482 


3486 
3468 


3418 
3425 


3438 


3435 
3448 


3456 
3452 
3468 
3462 
3470 
3488 
3498 


3495 
3499 


3500 


3505 





{RVS}YoU WONII" trem 82 
PRINT" {DOWN} IDS (TTS ,3 
.2);" MINUTE ";RIGHTS$(TTS 
12)" SECONDS trem 148 


PRINT" {DOWN} {RIGHT} 
{3 SPACES}SKILL LEVEL"A 
trem 1 
PRINT"(2 DOWN)(3 RIGHT) 
{2 SPACES}PLAY AGAIN?" 
trem 229 
PORRS6869, PEEK( 36869) AND2 
rrem 246 





IFA$="Y"THENRUN10@:rem 79 
PRINT"({CLR}":END :rem 61 
REM**BUILD SPACEPHONE 
trem 187 
Q=SC+44 :R=SC+88 :GOSUB6O90 
:GOSUB7 :POKELO , 32 :POKELO+ 
02,32:LO=SC+468_— rrem 42 
PRINT" {HOME} (2 DOWN} 
{RIGHT} {CYN}+,{2 SPACES}" 
tPRINT"{RIGHT}-.{YEL}/ ": 


RP=29 :GOTO988 trem 181 
REM**RING SPACEPHONE 
trem 35 


LO=SC+48 : POKELO , 37: POKELO 
+02 , 38 :POKELO+CM, 4 :POKELO 
+CM+02,4 trem 152 
POKEVL , 15 :FORL=1T03 :FORM= 
1 T0506 : POKESH , 238: FORN=1TO 
5SsNEXT trem 176 
POKESH ,@ :NEXT:GOSUB7 : FORM 
1101000 :NEXT: GOSUB7 :NEXT 


1POKEVL,@ trem 224 
REM**BUILD SPACESHIP 
srem 32 


Q=SC+110 :R=SC+242 :GOSUB6 
98 :GOSUB7 trem 59 


PRINT" (HOME}{2 DOWN} 
{RIGHT} {4 SPACES}":PRINT" 
{RIGHT}{4 SPACES}":rem 19 
LO=SC+466 : POKELO , 37 :POKEL 
0+Q2, 38: POKELO+CM, 41 POKEL 
O+CM+Q2 ,4 rrem 203 
GOSUB7 :GOSUB3600 :GOSUB7 

trem 248 
PRINT"{7 DOWN}"SPC(16)" 
{cn}; trem 171 
GOSUB3680:GOSUB7 _:rem 2 
PRINT" {HOME} (6 DOWN} "SPC( 
9)"{cynJ@esB trem 238 
PRINTSPC(7)"<<###<< 

trem 64 
PRINTSPC(9)"A#C_ :rem 149 
GOSUB7 :GOSUB3600 :GOSUB7 

trem 246 
PRINT" {HOME}(5 DOWN} "SPC( 
8)" {CYN}@#8#B srem 32 
PRINTSPC(8)"(CYN} ##### 





:rem 58 
PRINTSPC(5)"(CYN} ######## 
$F trem 8 
PRINTSPC(8)"(CYN} ##### 
rrem 59 
PRINTSPC(8)"(CYNJA###C 
trem 126 
GOSUB7 :GOSUB3690 :GOSUB7 
rem 258 
‘T=SC+189 : FORB=1T03 :POKET, 
61 :POKECM+T, 3: T=T+Q3 :NEXT 
1POKESC+215 , 32: POKESC+237 
132 trem 131 
POKEVL ,@ : POKESH ,6 : RP=20 :G 
oTo988 trem 233 
REM**PUT ALIEN ON RAMP 
trem 64 


TT$=TI$ :LO=SC+214:POKELO, 
37 :POKELO+Q2 , 38 :POKELO+CM 
+4:POKELO+CM+Q2,4:rem 263 
FORL=1T01590:NEXT :rem 80 





3518 


3528 
3599 
3688 


3648 


4988 
5999 
6088 


6622 


8878 


8675 


8888 


8085 


8098 


8892 


8693 


8999 


9888 


9819 


9820 


9638 


9840 


POKESC+214 , 32 :POKESC+236, 
32:POKESC+212,32:POKESC+1 
89, 32: POKESC+235 , 32 
trem 57 
FORL=1T02000 :NEXT:GOTO282 
5 trem 133 
REM**SPACESHIP SOUND 
trem 59 
POKEVL , 15: FORL=1T05 :FORM= 
226-LTO168-LSTEP~4 : POKESH 
+M:NEXT trem 221 
FORM=169-LT0220-LSTEP4 :PO 
KESH , M:NEXT:GOSUB7 :NEXT:R 
ETURN rrem 232 
X=INT( RND(1)*372)+SC+3*Q2 
RETURN trem 167 
REM**RELOCATE FLUBUGS 
trem 127 
FORI=1 TOA: IFF(I)>QANDF(I) 
<RTHENPOKEF (I), 32:F(1)=F( 
1)+154 trem 149 
NEXTI: RETURN rrem 108 
REM**CUSTOM CHARACTER DAT 
rrem 138 
24,24,,4,,255,255,2 
7255,255,255,255 4+, 
56,56,56,56,56,56 trem 11 
DATA36 ,126 ,126 ,68,24,24,2 
4,608,126,189,189,189,189, 
36 ,66,66 trem 125 
DATA, ,31,127,127,255,255, 
255,,,248,248,224,192,128 
14254, 253,248, 248,224,192 
1128 trem 89 
DATA, , ,128,64,32,18,9,6,6 
3,33,63,63,43,53,235,63 
trem 180 
DATAT, 31,63,127,127,255,2 
55,255,255,255,255,127,12 
7,63,31,7 trem 151 
DATA224 ,248,252,254,254,2 
55,255,255,255,255,255,25 
4,254,252,248,224 trem 51 
DATA, , ,255,255, 255, 
trem 246 
REM**ML JOYSTICK ROUTINE 
trem 74 
DATA120,8,72,152,72,138,7 
2,173,19,145,72,173,34,14 
5,72,169,8,141,62,3,141,6 
3,3,169 rrem 241 
DATA127,141,34,145,173,32 
1145,73,255,41,128,42,8,1 
69,195,141,19,145,173,17, 
145,73 trem 207 
DATA255 , 41,68,74,74, 48,42 
+168,41,16,281,16,208,3,1 
41,63,3,152,41,15,162, 
32,224 trem 159 
DATAS , 248,8,221,168,3,288 
1246 ,142,62,3,164,141,34, 
145,104,141,19,145,184,17 














8,104 trem 109 
DATA168,194,40,88,96,2,3, 
1,5,4,12,8,18 trem 185 


Program 3: Friendly Alien—VIC 
Disk Loader 


See instructions in article before typing. 
68608 PRINT" (CLR}{4 DOWN}LOADI 


60801 
68862 


69983 
66087 
69028 


NG MAIN PROGRAM.." 
rrem 53 
PRINT"{4 DOWN}" rem 12 
IFFRE (8) <49QOTHENP RINT "N, 
OT ENOUGH MEMORY! 1 
{3 SPACES}YOU NEED AN EX 
PANDERI 1":END trem 17 
IPFRE (8) <7 THEN6G808 
trem 30 
POKE8192,0:POKE44, 32: POK 
E642, 32 rrem 84 
POKE631 , 13: POKE632,82:PO 











KE633 ,85 :POKE634, 78:POKE 
635,13:POKE198,5 :rem 51 
68009 PRINT"LOAD"+CHRS (34) +"VI 
CFRIENDLY*"+CHR$ (34)+",8 
{3 UP}":END rrem 39 


Program 4: Friendly Alien—VIC 
Tape Loader 
See instructions in article before typing. 


600008 PRINT"(CLR}{4 DOWN}LOADI 
NG MAIN PROGRAM.." 

trem 53 
IF FRE(8)<40QSTHENPRINT" 
NOT ENOUGH MEMORY! 
{3 SPACES}YOU NEED AN EX 
PANDER! 1": END trem 16 
IF FRE(8)<7000THEN6GOO4 

trem 25 
POKE8192 ,O:POKE642,32:PO 
KE44,32 rem 80 
POKE631,131:POKE198,1:EN 
D rem 253 


Weather Prophet 


(Article on page 73.) 


10 REM IF COMPUTER IS 64, DELE 

TE "REM" IN LINE 26:rem 113 

20 REM POKE53280,1:POKE53281,1 

zrem 157 

36 REM IF COMPUTER IS +4, DELE 

TE "REM" IN LINE 40:rem 106 

40 REM COLOR @,2:POKE65305,249 

rem 140 

50 DIMIN$(720),HO®( 726) , MH( 12) 

ML(12),AR(12),AS(12),NO8(7 

208) ,D%(50) trem 174 

60 BLS="(40 SPACES}" :rem 153 

76 FORT=1T012:READMH(T) :NEXT:F 
ORT=1T012:READML(T) :NEXT 

trem 21 

80 FORT=1T012:READAR(T) :NEXT:F 
ORT=1T012:READAS(T) :NEXT 


69801 


60082 
60883 
60084 


trem 15 

90 FORT=1T08 :READDI$(T) :NEXT 
srem 18 
108 OPEN15,8,15:OPEN1,8,2, “RC. 
INDEX,S,R" rrem 38 
110 INPUT#15,A:IFA=62THENGOSUB 


240:GOTO1110 trem 66 
INPUT#1, RC® , TRE, HDS , CDS, MP 
$,AP$ ,MS$ ,AS$ :GOSUB246:IFR 
C8=720THENRC3=0 = :rem 168 
GoTol110 trem 144 
OPENS ,4,7:CMD4: RETURN 

rem 26 
PRINT#4 : CLOSE4 : RETURN 

trem 120 
PRINT#15, "P"+CHRS (2) +CHRS( 
peed ce ne) cn Aa ERETUR 

trem 246 
HB=INT(X1/256) :Lb=Ki-HDe2s 
6 :RETURN trem 22 
RC$=""; FORA=1T0100 :GET#1,A 
$ :RCS=RC$+A$ :NEXT: RETURN 

zrem 226 
PRINT#15, "IG" :RETURN 

trem 179 
CLOSE] :OPEN1,8,2, "WX.DATA, 
L, "+CHR$ (160) :RETURN 

trem 203 
PEEuIS 8,15 :GOSUB190:RETUR 

trem 143 
Geres rIFG$=""THEN220 


128 
136 
140 
150 
160 


176 
188 


198 
208 


218 
220 


230 
240 


RETURN rrem 117 
CLOSE] :CLOSE15:RETURN 

rem 109 
MO=6: PRINT" {CLR} (DOWN JENTE 
R NUMBER OF MONTH FOR REPO 
RT: "; :INPUTMO rem 207 


250 





268 


278 
280 
290 


308 


319 
320 
330 
340 
350 
360 
378 


388 
3908 


400 


410 


420 


430 


440 
450 


460 
478 


480 


490 


500 
518 


520 
538 
548 


550 
560 


578 
586 


590 


YR=O:PRINT" {CLR} (DOWN ENTE 
R YEAR FOR REPORT"; : INPUTY 
R trem 1 
IFMO<10RMO> 12THEN259 

trem 213 
PRINT" {CLR} (8 DOWN) 
(18 SPACES}WAITII":rem 125 
HI=0 : LO=260:BA=G : RA=0: SN=0 
:WS=0 :DE=0:ED=6 :RH=0 :BL=33 
:PC=0 rem 128 
PRINT" {DOWN} {13 SPACES] PRE 
PARING REPORT" :GOSUB210:GO 
SUB268 — trem 146 
FORX1=1TOTR$ :GOSUB176 :G$=" 
":GOSUB160 
FORA=1T06 :GET#1,A‘ 
$:NEXT rrem 89 
IFYR<>VAL(MID$(G$,5,2)) THE 
N36 trem 191 
IFMO=VAL(MIDS$(G$,3,2)) THEN 
GOSUB636 em 242 
IFMO<VAL(MID$(G$,3,2))THEN 
X1=TRE trem 166 
NEXT: CLOSE] :GOSUB190 : CLOSE 
15 rem 35 
IFLO=260THENP RINT" {CLR} 
{5 DOWNJNO DATA FOR THIS M 
ONTH EXISTS." :GOT0620 

trem 112 
IPPR=1THENGOSUB140:rem 126 
PRINT" {CLR}{RVS}(2 SPACES} 
MONTHLY REPORT FOR :({OFF}" 
7MO;"/"YR em 252 
PRINT"NORMAL HIGH: ";MH(MO) 
PRINT" (3 SPACES}NORMAL L 
OW: "ML(MO) trem 6 
PRINT"NORMAL RAIN: "AR(MO) 
7:PRINT"(2 SPACES)NORMAL S 
NOW: "AS(MO) trem 36 
PRINT" (DOWN JHIGHEST BAROME 
TER READING..."BA::rem 102 


PRINT"ON "MID$(DA$(1),3,2) 
"/"MID$(DA$(1),1,2)"/"MIDS$ 
(pas (1),5,2) rrem 144 
PRINT"LOWEST BAROMETER REA 
DING.... "BL trem 40 
PRINT"ON "MID$(DA$(2),3,2) 
*/"MID$ (DAS (2) ,1,2)"/ "MIDS 
(DAS$(2),5,2) zrem 149 
PRINT"HIGHEST TEMPERATURE. 
--"HI ~——srrem 244 
PRINT"ON "MID$(DA$(3),3,2) 
"/"MID$(DA$(3),1,2)"/"MIDS$ 
(DAS (3),5,2) trem 154 
PRINT"LOWEST TEMPERATURE. « 
Oss CaGS trem 0 
PRINT“ON “MIDS (DA$(4),3,2) 
“/"MID$(DAS(4),1, 2)"/*MIDS 



































(DAS (4),5,2) zrem 159 
PRINT “HIGHEST WIND “WS" FR 
I$ (WD) trem 158 





PRINT"ON "MID$(DA$(5),3,2) 
“/"MID$(DAS$(5),1,2)"/"MID$ 
(DAS(5),5,2) trem 155 
PRINTPC; "DAYS WITH PRECIPI 
TATION.” trem 44 
Ester OnE RAINFALL.... +++ 

trem 186 
“MIDs (DAS(6), 3,2) 
ny] *HIDS{DAS(8) + 1,2)"/"MID$ 
(DA$(6),5,2) trem 161 
PRINT“HEAVIEST SNOWFALL... 
zrem 197 
PRINT*ON "MIDS (DAS (7), 3,2) 
"/“MID$(DAS$(7),1,2)". 7 *MEDs 
(DAS(7),5,2) rrem 166 
PRINT"HIGHEST HUMIDITY.... 
"RH rrem 168 
PRINT"ON "MIDS$(DA$(9), 3,2) 
"/ "MIDS (DAS (9) ,1,2)"/"MIDS 
(DAS(9),5,2) trem 174 
PRINT"TOTAL HEATING DEGREE 
DAYS..."DE rem 227 

















608 


616 
620 
630 
640 


651 


660 


678 


680 


698 


788 


718 
720 


730 


798 


820 
830 
846 
850 
868 
870 


880 


890 


988 


910 


920 


930 


PRINT"TOTAL COOLING DEGREE 
DAYS..."ED — srem 238 
IFPR=1THENGOSUB15@:rem 123 
GOSUB2350:RETURN :rem 252 
GOSUB160:GOSUB180__:rem 3 
IFBA<VAL(MID$(RC$,7,5)) THE 
NBA=VAL(MID$(RC$,7,5)):DA$ 
(1)=MID$(RC$,1,6) _:rem 64 
IFBL>VAL(MID$(RC$,7,5)) THE 
NBL=VAL (MID$(RC$,7,5)) :DA$ 
(2)=MID$(RC$,1,6) rrem 98 
IFHI<VAL(MID$(RC$,13,3))TH 
ENHI=VAL(MID$(RC$,13,3)):D 
AS (3)=MID$(RC$,1,6) 

rem 182 
IFLO>VAL(MID$(RC$,16,3)) TH 
ENLO=VAL (MID$(RC$,16,3)):D 
AS (4)=MID$(RC$,1,6) 

trem 212 
IEWS<VAL(MID$(RC§, 20,3) ) TH 
ENWS=VAL(MID$(RC$,20,3)) :W 
D=VAL(MID$(RC$,19,1)) 

rrem 188 
IFWS=VAL(MID$(RC$ , 20,3)) TH 
ENDA$ (5)=MID$(RC$,1,6) 

trem 160 
IFRACVAL(MIDS(RC$,23,5)) TH 
ENRA=VAL(MID$(RC$,23,5)) :D 
AS(6)=MID$(RC$,1,6) 

rem 190 
IFVAL(MID$(RC$,23,5))<>OTH 
ENPC=PC+1 rem 237 
IFSN¢VAL(MIDS(RC§, 28,4)) TH 
ENSN=VAL(MID$(RC$,28,4)) 2D 
A$(7)=MID$(RC$,1,6) 

rem 229 
IFRH<VAL(MIDS(RC$ ,32,3)) TH 
ENRH=VAL(MID$(RC$,32,3)) :D 
AS$(9)=MID$(RC$,1,6) 

rrem 206 
H=VAL(MID$(RC$,13,3)):L=VA 
L(MID$(RC$,16,3)) :rem 68 
TP=65-INT((H+L)/2) sIFSGN(T 
P)=-1THENTP=INT( (H+L) /2)-6 











5 :GOTO770 rrem 105 
DE=DE+TP:GOTO780 :rem 205 
ED=ED+TP trem 188 
RETURN trem 127 


PRINT" (CLR) (DOWN) 

{6 SPACES}SEARCHING FOR "M 
o$"/"DAS"/*YRS trem 46 
GOSUB210 :GOSUB200 :R=0:FORP 
T=1TOTR :X1=PT:GOSUB170 : RC 
$="" trem 251 
GOSUB160 :RC$=""sFORA=1T06 : 
GET#1,A$ :RCS=RC$+A$ NEXT 





trem 196 
IPSES=RC$THENR=PT : PT=TRE:R 
cs= trem 151 
NEXT srem 218 
IFR=OTHEN876 trem 184 
AS="":GOSUB16@ :GOSUB186 

trem 39 
GOSUB240:RETURN :rem 206 


GOSUB240:PRINT"{18 SPACES} 
RECORD NOT FOUND.":RETURN 

trem 180 
F=1:PRINT"(CLRJSEARCH BY 
{RVS}F(OFFJIELD OR (RVS}R 
{OFF }ECORD NUMBER?" 


trem 215 
GOSUB220 :IFG$="R"THEN1O60 
trem 178 
IFG$<>"F"THEN898 :rem 103 


PRINT" (CLR}{5 DOWNJENTER N 
UMBER OF FIELD FOR SEARCH: 

rrem 234 
PRINTTAB(7)"{DOWN}{RVS} 1. 
{OFF}{2 SPACES]SPECIFIC D 
ATE trem 33 
PRINTTAB(7)"{DOWN}{RVS} 2. 
{OFF}{2 SPACES}GENERATE M 
ONTHLY REPORT ~ :rem 145 
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940 PRINTTAB(7)"(DOWN}{RVS} 3. 
{OFF} (2 SPACES}RETURN TO 
{SPACEJMAIN MENU :rem 30 
958 GOSUB220:G=ASC(G$)-48 :ONGG 


OT0980 , 256,978 trem 35 
968 GOTO9SG trem 118 
976 RETURN trem 128 


986 PRINT" (CLR}{14 SPACES) 
{RVS} SEARCH FOR DATE 


rem 176 
990 PRINT"ENTER DATE (MONTH, D 
AY, YEAR)" trem 205 


1000 PRINT"SEPARATE EACH ENTRY 
WITH A COMMA. ":INPUTMOS, 





DAS , YRS rrem 124 

1016 BEYVAR(DAG) cso 2HENDAR SO 
DAS trem 61 

1026 BEAU (B08) cea zeaMotee Bar 
rem 131 

10308 Trvat(yng) <ooniesr n= + 
rrem 177 


1046 SES=DAG+HOS4YRS 1GOSUB790" 
IFR=@THENGOSU B2356 :RETURN 


trem 193 

1658 Gosup2s483 :GOSUB2350 :RETUR 
trem 176 

1660 PRINT" { CLR] *1G08UB210:008 
UB200 :RCS$="" trem 56 
1070 PRINT"RECORD NUMBER FOR S 





EARCH?™ : INPUTR: IFR> TRE THE 
N720 trem 5 
1688 X1=R:GOSUB170 :GOSUB166:GO 
SUB18@ :GOSUB19@ :GOSUB240: 
GOSUB2640 :GOSUB2350 
trem 133 
1090 RETURN trem 170 
1160 GOSUB240:PRINT" (CLR) INVAL 
ID RECORD NUMBER" :GOSUB23 
5@:RETURN — srem 35 
1118 PRINT" {GRN}":PRINTCHRS (14 
) :FL=@ : F=6 :Q=FRE(0) 
trem 155 
1126 PRINT"({CLR}{3 Down} 
ee SPACES }WEATHER PROPHE 
trem 107 
1136 PRINT {2 DowN}{4 SPACES) 
(Rvs} 1 {OFF}(5 SPACES}EN 
TER NEW DATA zxem 109 
1146 PRINT" {DOWN} {4 SPACES} 
{Rvs} 2 (oFF}{5 SPACES}FO 
RECAST rrem 51 
1158 PRINT" {DOWN} {4 SPACES} 
{Rvs} 3 (OFF}{5 SPACES)SE 
ARCH DATA zrem 46 
1166 PRINT™(DOWN}{4 SPACES} 
{Rvs} 4 (OFF}(5 SPACES)}DE 
GREE DAY REGISTER: rem 207 
1178 PRINT” {DOWN} {4 SPACES) 
(Rvs} 5 (oFF}(5 SPACES)EX 
IT PROGRAM zrem 180 
1186 PRINT" {DOWN} {4 SPACES} 
{Rvs} 0 (OFF}(5 SPACES}TO 
GGLE PRINTER OPTION 
trem 157 
1190 PRINT" (RED) ":PRINT" ( DOWN) 
{5 SPACES)"; TR8;" RECORDS 
IN DATA BASE. 
(GRNy" 
1208 IFPR=1THENPRINT" 
{12 SPACES}{RVS} PRINTER 
(SPACEJON * ‘Trem 181 
1216 IFPR=@THENPRINT" (RED) 
{12 SPACES) (RVS) PRINTER 
{SPACEJOFF [GRN}"rrem 173 
1228 GOSUB220:G=VAL(G$) :ONGGOS 
UB1270, 3000 ,886,3156,3280 














trem 71 

1236 IFG$="@"THENGOSUB1256 
trem 232 
1246 GoTO1110 trem 195 


1256 IFPR=OTHENPR=1:RETURN 
trem 
1266 IFPR=1THENPR=@ :RETURN 
trem 
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191 


192 





1276 


1288 


1298 
1300 
1316 


1328 
1330 
1340 


1350 


1368 


1376 


1386 


1390 


1486 


1410 


1428 


1430 


1446 


1450 


1466 


14768 


1486 


1496 


1500 
1510 
1526 
1536 
1548 
1558 
1568 
1578 


PRINT" (CLR) (DOWNJENTER DA 
TE: MONTH, DAY, YEAR AS 1 
2,31,84" trem 161 
PRINT“SEPARATE EACH ENTRY 
WITH A COMMA. 





DAS ,¥R$ 

TEVAL(DAS) <=9THENDAG =O" + 
DAS zrem 71 

IFVAL(MO$) <=9TTHENMOS =" 0" + 
Mos rem 132 

LEVAL(YRS) <a 9THENYRG="O"+ 
YRS rem 178 

IFRC8=OTHEN137@ rem 118 


GOSUB216 :GOSUB206 :X1=RC%: 
GOSUB170 :GOSUB160:rem 131 
G$="":FORA=1T06 :GET#1,A$: 
GS=GS$+A$ :NEXT :GOSUB248 
trem 2 
IFMID$(G$,3,2) <MO$THENMPS 
="00":MS§$="00" — :rem 123 
IFMID$(G$,5, 2) <YR$THENAPS 
"TMPS=" 06" :MS$="GO" :A 





99" trem 48 
BAS$="" :GOSUB3020 :GOSUB303 
8 trem 242 


HIS="":PRINT" (CLR) (DOWN JE 
NTER HIGH TEMPERATURE: "7? 
INPUTHIS — trem 17 
Lo$="":PRINT" (CLR) (DOWNJE 
NTER LOW TEMPERATURE: "; :T 
NPUTLO$ trem 248 
GOSUB3090 :WS$="": PRINT" 
{CLR} (DOWNJENTER AVERAGE 
{SPACE }WIND SPEED": INPUTW 
"AL (WSS) trem 32 
PRINT" {CLR} [DOWN JE 
NTER PRECIPITATION [6.60] 
INCHES. ": INPUTRAS 

trem 229 
MPS$=STRS(VAL(MP$)+VAL( RAS 
)) :APS=STRS (VAL(AP$)+VAL( 
RAS)) trem 215 
SNS="":PRINT" {CLR} {DOWN JE 
NTER SNOWFALL TO NEAREST _ 
(SPACE)TENTH INCH.": INPUT 
SNS trem 184 
MSS=STR$(VAL(MS$)+VAL( SNS 
)) :AS$=STR$ (VAL (AS$)+VAL( 
SNS$)) trem 1 
RHS="": PRINT" (CLR) (DOWN JE. 
NTER RELATIVE HUMIDITY"; 7 
INPUTRHS trem 66 
ccs="": PRINT" (CLR) [DOWN JE 
NTER CLOUD COVER PERCENTA 
GE"; : INPUTCCS Trem 166 
WC$=""sPRINT" (CLR) (DOWNJE 
NTER COMMENT ON CURRENT W 
X CONDITION: trem 118 
PRINT" {DOWN}LIMIT COMMENT 
S TO 40 CHARACTERS. 
{2 SPACES} (ONE(2 SPACES}F 
ULL SCREEN LINE.):rem 131 
PRINT" {RVS] (DOWN) 
{6 SPACES]DO NOT USE A CO 
MMA OR COLON.{6 SPACES]*: 
PRINT: INPUTWCS :PRINT" 
(cLR}" srem 152 
RCS$=DAS$+MOS+YRS$+BAS 

rem 28 
RCS=RCS$+CRS$+LEFTS (BLS ,1-L 
EN(CRS$)) rrem 74 
RCS=RCS+LEFTS (BLS , 3-LEN(H 
1$))+HIS rem 69 
RCS=RC$+LEFTS ( BLS , 3-LEN(L. 
O$))+Lo$ rrem 90 
RCS=RC$+DIS$+LEFTS (BLS, 1-L 
EN(DI$)) trem 61 
RC$=RC$+LEFTS ( BL$ , 3-LEN(W 
S$))+wss sxrem 122 
RCS=RC$+LEFTS (BLS , 5-LEN(R 
AS))+RAS trem 79 
RCS=RCS+LEFTS (BLS , 4-LEN(S. 
NS) )+SNS rem 107 


























1586 
1598 
1608 
1616 
1620 
1638 
1646 
1656 


1668 


1678 


1680 


1698 
1708 


171¢ 


1726 


1730 


1748 


1758 


1768 
1778 


1788 


1798 


1888 


1816 
1828 


1830 


1848 


1858 


1868 


1876 


1880 


1898 


1908 


RCS=RCS$+LEFTS (BLS , 3-LEN(R 
HS))+RHS trem 93 
RCS=RCS$+LEFTS (BLS , 3-LEN(C 
c$))+cc$ trem 54 
RCS=RC$+WC$+LEFTS ( BLS , 40- 
LEN(WC$) ) srem 135 
RC$=RC$+LEFTS (BLS , 5-LEN(M 
PS) )+MP$ trem 95 
RCS=RCS+LEFTS (BLS ,6-LEN(A 
PS) )+APS rrem 73 
RCS=RC$+LEFTS (BLS , 5-LEN(A 
S$))+AS$ srem 79 
RCS=RC$+LEFTS (BL$ , 5-LEN(M 
S$) )+Ms$ trem 104 
RCB=RCB+1  TRO=TRE+1 : R=RCB 
tLFTR8=721THENTRE=720 
rrem @ 
GOSUB2646 :PRINT"({ RVS) 
(5 SPACES]1S DATA CORRECT 
? (YES OR No)T7 SPAcEs)}" 
trem 61 
GOSUB220 : 1FG$="N"THENRC8= 
RC8-1 :TRE=TR8-1 rem 142 
IFG$="N"THENP RINT "RE-ENTE 
R FROM START" ;FORT=1T0500 
O:NEXT:GOTO1278 — :rem 29 
IFG$<>"Y"THEN1670:rem 222 
GOSUB210 :X1=RC8 :GOSUBL70: 
GOSUB196 :GOSUB200 :GOSUB16 
C) rem 216 
PRINT#1, RC$ : CLOSE] :GOSUB1 
90 :PRINT# 15, "S@:RC. INDEX" 
:CLOSE15 rem 146 
OPEN1,8,2, "RC. INDEX,S,W" 





trem 156 
PRINT#1,RC8", "TRE", "HDS", 
"CDS", "MPS", "APS", "MSS", " 
AS$:CLOSEL trem 155 
IF RC$=1ANDTR8=1THEN1770 
rem 141 


NO&(RC%)=RC8 : INS ( RC$)=MID 
$(RC$,7,5) 1 FRC8=1ANDTRE= 
1 THEN1776 trem 149 
GOSUB2526 trem 23 
BA=VAL(MID$(RC$,7,5)) :CR® 
=VAL(MID$(RC$,12,1)) :DI=V 
AL(MID$(RC$,19,1)):rem 27 
IFPR=1THENGOSUB149 

trem 179 
PRINT" {CLR} ":PRINT"({ RVS} 
(7 SPACES}GENERAL SHORT T 
ERM FORECAST(6 SPACES}" — 

trem 111 
IFBA>=38 . 2ANDCR8=1 ANDDI>= 
6ANDDI<=8THEN2040 :rem 43 


IFBA>=30.2ANDCR¢=2ANDDI>= 
G6ANDDI<=8THEN205@ trem 46 
IFBA>=30.1ANDBA<=38 .2ANDC 
R&=1ANDDI>=6ANDDI<=8THENL 
998 trem 203 
IFBA>=30.1ANDBA<=30 .2ANDC 
R*=5ANDDI>=6ANDDI ¢=8THEN2 
000 trem 191 
IFBA>=30.1ANDBA<¢=30 .2ANDC 
RG=2ANDDI> =6ANDDI <=8THEN2 
920 trem 191 
IFBA>=30.1ANDBA<=36 .2ANDC 
R=3ANDDI>=6ANDDI<¢=8THEN2 
630 trem 194 
IFBA>=30.1ANDBA<=30 .2ANDC 
R=2ANDDI<=5ANDDI>=4THEN2 
e608 trem 192 
IFBA>=30.1ANDBA<=36 .2ANDC 
R@=3 ANDDI=5ORDI=4THEN2070 

trem 23 
IFBA>=30 .1ANDBA<=3@ .2ANDC 
RB=2ANDDI<=4ANDDI>=2THEN2 
990 trem 194 
IFBA>=30.1ANDBA<=3@ .2ANDC 
R@=3ANDDI<=4ANDDI>=2THEN2 
168 trem 188 
IFBA<=29 .BANDCR€=2ANDDI>= 
2ANDDI<=3THEN214@ :rem 49 











1918 
1926 
1930 
1946 
1958 
1968 
1976 
1988 


1996 


2080 


2018 
2020 


2038 


2040 


2058 


2060 


20708 


2080 
2098 
2100 


2110 


2120 


2138 
2148 


2158 


2160 
21708 


2188 


2190 


2208 


IFBA<=29 .8ANDCR@=3ANDDI<= 
SANDDI>=3THEN2230 :rem 54 
IFBA<=29 .BANDCR@=3 ANDDI<= 
3ANDDI>=1THEN2260 :rem 54 
IFBA<=29 .8ANDCR8=5 THEN229 
0 trem 36 
IFBA<=36 .1 ANDCR$=3ANDDI>= 
4ANDDI<=8THEN2180 :rem 50 
IFBA<=36 . 1 ANDCR@=4ANDDI <= 
6ANDDI>=5THEN2200 :rem 44 
IFBA<=30.1 ANDCR@=2ANDDI>= 
2ANDDI<=3THEN2110 :rem 37 
IFBA<=3@ .1 ANDCR@=2ANDDI=4 
THEN2170 trem 228 
PRINT"LITTLE CHANGE DURIN 
G NEXT 24 HOURS. ":GOT0230 
0 trem 252 
PRINT"FAIR, WITH LITTLE T 
EMPERATURE CHANGE FORNEXTT 
DAY OR TWO.":GOTO2306 
trem 117 
PRINT"FAIR TODAY, WARMER 
{SPACEJWITH A CHANCE OF S 
OME"; trem 211 
PRINT"RAIN WITHIN 2 DAYS. 
":GOTO2300 trem 96 
PRINT"TURNING WARMER, WIT 
H RAIN LIKELY IN 24 
(2 SPACES}TO 36 HOURS. ":G 


0702300 trem 102 
PRINT"WARMER, WITH RAIN I 
N 18-36 HOURS. ":GOTO2360 


trem 3 
PRINT "CONTINUED FAIR WITH 
LITTLE CHANGE IN 
(4 SPACES} TEMPERATURE. "3G 
0702360 trem 221 
PRINT"PAIR, WITH SLOWLY R 
ISING TEMPERATURES 
{3 SPACES}FOR NEXT 2 DAYS 
+" :G0T02300 trem 232 
PRINT"PRECIPITATION LIKEL 
Y WITHIN 24 HOURS. ":GoTO2 
308 trem 110 
PRINT"INCREASING WINDS, P 
RECIPITATION LIKELY a 
trem 177 
PRINT "WITHIN 12-24 HOURS. 
":GOTO2306 trem 91 
PRINT"RAIN WITHIN 12-18 H 
OURS. ":GOTO2300 trem 9 
PRINT "BECOMING WINDY WITH 
RAIN LIKELY WITHIN 
(2 SPACES}12-24 HOURS. ":G 
0702300 trem 211 
PRINT"IN WINTER, 
{2 SPACESTPRECIPITATION L 
IKELY WITHIN 24 HOURS. 
trem 44 
PRINT"IN SUMMER, CLOUDY W 
ITH LIGHT BREEZES. 
{3 SPACES}RAIN LIKELY IN 
{SPACEJA DAY OR TWO. 


trem 69 
GoT02308 trem 196 
PRINT"IN SUMMER, RAIN LIK 


ELY WITHIN 24 HOURS. 
trem 126 


PRINT"IN WINTER, RAIN OR 
{SPACEJSNOW LIKELY, WINDS 
{3 SPACES} INCREASING. 

trem 177 
GoT02300 rem 199 
PRINT"MORE RAIN FOR NEXT. 
{SPACEJDAY OR TWO. ":GOTO2 
309 rrem 253 
PRINT"HIGH WINDS AND POSS 
IBLE HEAVY RAIN TODAY"; 

rem 88 
PRINT"CLEARING AND COOLER 
TOMORROW. ":GOTO2300 

trem 232 


PRINT"CLEARING WITHIN A F 











2210 


2220 
2230 


2248 


2250 


2268 


2270 


2280 
22968 


2380 
2310 


2320 
2330 


2348 


2350 
2360 


2370 
2386 
2398 
2480 


2410 
2420 
2430 


2448 
2450 


2460 
2476 


2486 
2498 
2500 
2510 
2526 


2530 


2540 
2550 
2568 


2570 
2580 


EW HOURS. (2 SPACES)FAIR 

trem 143 
PRINT"WEATHER FOR NEXT SE 
VERAL DAYS. trem 27 
GOT02300 rrem 196 
PRINT" {RED} (RVS} SEVERE S 
‘TORM WARNING! trem 186 
PRINT"WINDY WITH HEAVY PR 
ECIPITATION TODAY. 

trem 197 
PRINT"CLEARING AND TURNIN 
G COOLER TOMORROW. ":PRINT 
"(GRN}":GOTO2300  :rem 53 
PRINT"SEVERE. NORTHEAST GA 
LES, WITH HEAVY RAIN OR S 





Now. trem 12 
PRINT" TURNING COOLER IN W 
INTER. — trem 3 
GoT02300 rrem 262 
PRINT"CLEARING AND COOLER 

trem 6 


IFPR=1THENGOSUB150 
trem 169 

GOSUB2350 : 1FTR8=1THENCL=0 
1GOSUB2580 :GOTO2330:rem 1 
GosuB2380 rem 20 
IFCL=@OTHENPRINT" 
{5 SPACES]NO ADDITIONAL D 
ATA AVAILABLE™:GOTO2 350 

fe trem 161 
PRINT"{3 SPACES]SIMILIAR 
(SPACE}DATA FOYND IN FILE 
" sGOSUB2350 :GOSUB32907PRI 


nr"{2 up)" trem 250 
CLOSE15 :GOSUB210:CLOSE15 
trem 9 


PRINT" (RVS)(7 SPACES) PRES 
S ANY KEY TO CONTINUE 

{8 SPACES)"; trem 207 
GOSUB226:PRINT" (CLR) ":RET 
URN ' rem 152 
CL=@ :A=0 :U=1 : IFRC8=1 ANDTR 
$= 1THEN2520 rem 163 
Us@ : FORT=1 TOTR8 :1FT=RC8TH 
EN2410 trem 235 
IFBA$™IN$(T) ANDNO@(T) <> RC 
STHENU=U+1 :HO%(U)=NO8(T) 





trem 185 

NEXT : TFU=@THEN2510 
rrem 136 
‘T=@ : C=@ :GOSUB210 :GOSUB200 
trem 12 
T=T+1 :RC$="":TFT>UTHEN251 
6 trem 37 


Xl=HO$(T) :GOSUB170:rem 67 
GOSUB160 :FORA=1T019 :GET#1 
WAS trem 190 
RC$=RC$+A$:NEXT trem 132 
IFCR$<>MID$(RC$,12,1) THEN 





2430 rrem 123 
IFDI$<>MID$(RC$,19,1) THEN 
2430 trem 123 
CaC+1 1D8(C)=HO8(C) 

trem 178 
CL=1 :GOSUB240 : RETURN 

trem 46 
CL=6 :GOSUB240 : RETURN 

rem 46 
GOSUB210:OPEN1,8,2, "BA.IN 
DEX,S,R rrem 269 


FORP=1TOTR8 : INPUT#1 , NO8(P 
), INS (P) :NEX'T: GOSUB240 
trem 219 
FORI=1TOTR8 : IF I=RC8THENI= 
fast rem 58 
FORJ=ITOTRE : [FING (I) <INS( 
J) THEN2576 trem 158 
HIS=INS$(I) 2 INS(I)=IN$(J) = 
INS (J)=HIS$ :NI=NO8 (I) :NOs( 
1)=NO8(J) :NO&(J)=NI 





rem 189 
NEXT :NEXT trem 134 
GOSUB216:PRINT#15,"S0:BA. 





25908 
2660 
2610 
26208 
2638 
2640 
2658 


2668 


2678 


2680 


2690 


2700 


2718 


2726 


2738 


2740 
2750 


2760 


2770 


2780 


2790 


28008 


2810 


28206 


2830 


2840 


2850 


2868 


2870 


INDEX" trem 136 
LFTR$=1THENNOS (1)=RC% : INS 
(1)=STR$ (BA) trem 167 
OPEN1,8,2,"BA.INDEX,S,W": 
1=8 rrem 120 
I=I+1:1FI> TR8THEN2630 
trem 9 

PRINT#1,NO8(I) sPRINT#L, IN 
$(1) :GoT02610 trem 11 
GOSUB246 :PRINT" {CLR} ":RET 
URN rrem 153 
IFPR=1THENGOSUB140 

:rem 175 
PRINT" (CLR) [RVS]RECORD# 
{OFF}"R;"{RVS]DATA ENTRY 
{SPACE} FOR: (OFF}"; 

trem 180 
PRINTMID$(RC$,3,2)7"/"7MI 
D$(RC$,1,2)7"/";MID$(RCS, 
5,2) rem 124 
PRINT"BAROMETRIC PRESSURE 
eee ";MID$(RC$,7,5)" 
INCHES" trem 118 
PRINT "HIGH TEMPERATURE... 
seeeeeue™? SHIS=MID$ (RCS, 1 
3,3) trem 103 
PRINTVAL(HI$)"DEG. FE" 

rem 207 
PRINT" (6 SPACES]NORMAL HI 
GHe wees eee ee; MH{VAL (MIDS 
(RC$,3,2)))"DEG. F" 

trem 241 
PRINT"LOW TEMPERATURE. 
ase "; FLOS=MID$(RC$, 1 
6,3) rrem 110 
PRINTVAL(LO$)"DEG. FE" 

trem 211 
PRINT" (6 SPACES)NORMAL LO 
Wee 7MLTVAL (MID$ 
(RC$,3,2)))"DEG. F" 
trem 248 
PRINT"WIND DIRECTION..... 
. Drie im trem 2 
WD=VAL(MID$(RC$,19,1)) PR 
INTDI$ (WD) trem 57 
PRINT"WIND SPEED...+++ 
Se" 7VAL(MID$ (RCS, 
+3))7"MPH rrem 153 
PRINT"RAINFALL (PAST 24 H 
RS) ;VAL(MID$(RC$ , 23 
15))" INCHES" trem 19 
PRINT" (6 SPACES)NORMAL MO 
NTHLY RAIN..";AR(VAL(MID$ 
(RC$,3,2))) 7 "INCHES" 

rem 237 
PRINT" (6 SPACES }MONTHLY R 
AIN TO DATE. ";VAL(MID$( RC 
$,79,5))"INCHES" :rem 89 
PRINT" {6 SPACES)YEARLY RA 
IN TO DATE..";VAL(MIDS$(RC 
$,83,6))"INCHES" :rem 38 
PRINT "SNOWFALL (PAST 24 H 
RS) +" ;VAL(MID$(RC$, 28 
14))" INCHES" trem 47 
PRINT" {6 SPACES]NORMAL MO 
NTHLY SNOW. .";AS(VAL(MID$ 
(RC$ ,3,2))) "INCHES" 

trem 263 
PRINT" {6 SPACES}MONTHLY S 
NOW TO DATE." ;VAL(MIDS$( RC 
$/89,5))"INCHES" :rem 114 
PRINT" (6 SPACES]YEARLY SN 
OW TO DATE..";VAL(MID$ (RC 
$,94,6))"INCHES" :rem 73 
PRINT"RELATIVE HUMIDITY... 
“+s "7 VAL(MIDS$(RC$ , 32 
a" trem 64 
PRINT"PERCENT CLOUD COVER 
seen eve" 7VAL (MIDS (RCS ,35 
13))7"% trem 166 
HI=VAL(HI$) : LO=VAL(LO$) 2H 
D=65-INT( (HI+LO) /2) 

trem 109 
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2888 


2898 
29068 


2916 
2926 


2938 
2940 
2950 
2968 
2976 
2986 
2990 


3008 


3018 


3620 


3030 


3040 


3658 


3066 


30678 


3080 


3090 


3100 


3118 


3120 


3136 


3148 


31508 


3166 
3176 
3180 


3198 


TD=(HI+LO)/2:RH=VAL (MIDS ( 
RC$ ,32,3)) :RH=RH/160 
trem 88 
IFSGN(HD)=-1THEN2938 
trem 191 
Z=VAL( HD$)+HD:HDS=STRS(Z) 
:PRINT "HEATING DEGREE DAY 
Seeeeeeee"7HD trem 139 
IFF=1THEN2976 rem 16 
PRINT" {6 SPACES}TOTAL FOR 
SEASON.....";HDS$ :GOTO297 
6 em 232 
CD=( INT(HI+LO)/2)-65:IFSG 
N(CD)=-1THEN2970 :rem 148 
2=VAL (CD$) +CD:CD$=STRS$(Z) 
:PRINT"COOLING DEGREE DAY 
ee eeee ee" 3CD trem 134 
IFF=1THEN2970 trem 20 
PRINT" (6 SPACES}TOTAL FOR 
SEASON.....";CD$:rem 162 
PRINTMIDS(RC$, 38,48) ; 
rem 
IFPR=1 THENGOSUB159 
trem 183 
RETURN trem 188 
PRINT" (CLR) (1@ SPACES}FOR 
ECAST WEATHER trem 168 
GOSUB3026 :GOSUB3030 :GOSUB 
3090 :PRINT"(CLR)":GOSUBL7 
80 :RETURN trem 81 
PRINT" (CLR) (DOWN JENTER: ": 
PRINT "BAROMETRIC PRESSURE 
"“: INPUTBAS :BA=VAL (BAS) : RE 
TURN trem 62 
PRINT" (CLR) (DOWNJRATE OF 
{SPACE)CHANGE: “ trem 220 
PRINT"RAPID CHANGE IS ANY 
CHANGE GREATER THAN 0.66 
INCHES PER HOUR.:rem 188 
PRINT" (DOWN ENTER: ": PRINT 
"({ DOWN) {RVS}"1. {OFF} 
{2 SPACES]STEADY"TAB (26)" 
{Rvs} 4.{OFF)(2 SPACES)SL 
OWLY RISING" trem 213 
PRINT (DOWN) (RVS) 2.{OFF} 
(2 SPACES)FALLING SLOWLY" 
TAB( 20)"(RVS) 5.(OFF) 
{2 SPACESJRISING RAPIDLY" 
trem 76 
PRINT" (DOWN) (RVS) 3. {OFF} 
(2 SPACES}FALLING RAPIDLY 
":PRINT rem 138 
CRS="" s INPUTCRS :CR8=VAL(C 
R$) :RETURN rrem 192 
PRINT" (CLR) [DOWN JENTER NU 
MBER FOR WIND DIRECTION: 
trem 90 
PRINT" (DOWN) {RVS} 1.{OFF) 
NORTH" TAB(26)"{RVS} 5. 
{Orr} souTH trem 122 
PRINT" {DOWN} (RVS} 2. {OFF} 
NORTHEAST "TAB (20)" (RVS} 
{SPace}6.{OFF} SOUTHWEST 
trem 237 
PRINT" (DOWN) (RVS} 3.{OFF) 
EAST"TAB(20)"(RVS) 7. 
(Orr) WEST rem 210 
PRINT" TDOWN) {RVS] 4. (OFF) 
SOUTHEAST "TAB ( 26)" (RVS} 
{SPACE}8.(OFF} NORTHWEST 
rrem 243 
DI$="":PRINT: INPUTDI$ :DI= 
VAL(DI$):RETURN trem 63 
PRINT" {CLR} { DOWN) 
{8 SPACES} {RVS} DEGREE DA 
Y REGISTERS trem 240 
PRINT" {DOWN)HEATING DEGRE 
E DAYS: “;HDS rrem 46 
PRINT" {DOWN }COOLING DEGRE 
E DAYS: “;CDS trem 53 
PRINTTAB (5)" {DOWN} TOTALS 
{SPACE}JAS OF LAST ENTRY. 
trem 92 
PRINT" {6 DOWN} [6 SPACES) 





201 
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{Rvs} 1.{OFF}(2 SPACES}cL 
EAR HEATING DEGREE DAYS 
Fem 41 
PRINT" {DOWN} [6 SPACES} 
{Rvs} 2.{OFF}{2 SPACES)CL 
EAR COOLING DEGREE DAYS 
rrem 216 
PRINT" {DOWN} {6 SPACES) 
{RVS} 3.(OFF][2 SPACESJRE 
TURN TO MAIN MENU:rem 232 
GOSUB220:1FG$=" 3"THENRETU 
RN rem 216 
IFG$=" 1 "THENHD$="06" :GOTO 
3260 rem 114 
IFG$="2"THENCD$="06":GOTO 
3260 rem 111 
GOTO3220 trem 262 
GOSUB210 :PRINT#15,"SO:RC* 
":CLOSE15 :OPEN1 8,2, "RC.I 
NDEX,S,W" trem 66 
PRINT#1, RC8", "TR", "HDS", 
"CDS", "MPS", "APS", "MSS", " 
AS$:CLOSE1:RETURN:rem 182 
END rem 164 
F=1:FORX=1TOC rem 79 
IFD@ (X)=TR&+1ANDTR8<720TH 
ENRETURN trem 77 
X1=D8 (X) :GOSUB176 :GOSUB21 
8 :GOSUB200 trem 138 
GOSUB160:GOSUB186 :rem 5 
R=D&(X) :IFR=RC8THEN3370 
rem 120 
IFR=@THEN3370 trem 20 
GOSUB2646 :GOSUB2350 :GOSUB 
240 :Y=Y+1 :1FY<4THEND&(X)= 
D8 (X)+1:GOTO3300 rem 39 
IFD@(X) +3¢D8(X+3) THENX=X+ 
4 rem 242 
NEXT trem 12 
PRINT"(16 SPACESJEND OF F 
ILE" :GOSUB240 : F=0:RETURN- 
rem 130 
REM HIGH TEMPERATURE DATA 
:rem 59 
DATA47 .6,50.8,59.3,70.7,7 
7.9 ,84.2 rrem 147 
DATAS7 .4,86.2,80.4,70.1,5 
9.9,50.4 rem 137 
REM LOW TEMPERATURE DATA 
:xrem 7 
DATA27 .3,29.0,36.5,45.9,5 
5.8 ,62.6 rem 131 
DATAG6 .9,66.3,59.3,46.7,3 
7.1,29.9 trem 154 
REM MONTHLY PRECIPITATION 
DATA trem 208 
DATA3.32,3.30,3.77,3.17,3 
+61,3.81 rem 119 
DATA4.57,4.21,3.65,3-08,2 
+74,3.31 trem 116 
REM MONTHLY SNOWFALL DATA 
rrem 94 
DATA3.2,2.4,1.9, .1,0,0,0, 
6,0,0,.2,1.4 rem 255 
DATA*NORTH", "NORTHEAST", " 
EAST", "SOUTHEAST", "SOUTH" 
7; "SOUTHWEST" trem 239 
DATA"WEST", "NORTHWEST" 
trem 168 





32008 


32108 


3220 


3230 





3246 
32508 
32608 
32708 


3288 
3298 
3300 
3316 


3320 
3338 


3348 
3358 
3360 
3378 
3386 
3390 
3408 
3416 
3426 
34308 
3440 
3450 
34608 
3478 
3480 
3490 
3500 


3516 


TinyTerm 
(Article on page 82.) 


(Note: This is a VIC version. Com- 
modore 64 owners should see article 
for modifications.) 


10 OPEN2,2,3,CHRS$(38)+CHR$ (224 
) trem 128 
20 %1=37136 :Z22=37138 : POKE36879 
+137:23=0 rrem 172 





38 


40 


508 


68 
78 
80 
cr) 
100 
110 


126 
130 
148 
150 
160 
170 
180 
198 
200 
210 
220 


230 
240 


250 


268 
270 
280 


290 
308 


310 


320 
330 
340 
350 
360 
370 
380 
398 
400 
410 
420 


430 
440 


POKEZ1,98:PRINT"{CLR}" 
trem 88 
PRINT" (HOME}{3 DOWN} "SPC(Z3 
) "DDDDDDDDDDDDPDDDDDDDDd" : P 
RINTSPC(Z3) “(BLK 
{7 SPACES]TINYTERM" :rem 54 
PRINTSPC(Z3)" {DOWN ] DDDDDDDD 
DDDDDDDPDDDDDD" : GOSUB230 
trem 50 
ID$(1)="NAME":ID$(2)="ID":1 
DS(3)="PASS WORD" —:rem 26 
GOTO300 trem 51 
PRINTCHRS (147) +CHRS$(14)+"ON 
LINE": PRINTCHRS (187); 
trem 237 
GET#2, A$: IFAS=""THEN136 
trem 161 
IFI%(ASC(A$))=13THENPRINT" 
{LEFT} " trem 170 
PRINTCHRS (157); CHR§(I%(ASC 
(AS))) 7 CHRS (187); :IFI% (ASC 
(AS) )=34THENPOKE212,0 
rem 


GoTo98 
GETA$ :IFA$=""THEN9O:rem 32 
PRA cHre 137) THENS=1 :GOTO 
181 :rem 175 
TeRs=cug 138) THENS=2 :GOTO 

rem 178 
Tengmcins(139) HENS=95 GoTo 
18) rrem 181 
PRENTE2, CHRS(08(ASC(AS)))+ 
1GOTO90 trem 97 
FORX=1 TOLEN( ID$(S)) 

trem 110 
TS$=MID$(ID$(S),X,1) 

rem 212 
PRINT#2,CHRS$(O8(ASC(TS))); 

rrem 146 
NEXT : PRINTCHRS (13) :PRINT#2 
+CHR$ (13) trem 77 
GoTO96 trem 54 
DIMI8(255),0%(255) :rem 87 
FORZ=32T064 :08(Z)=Z:NEXT:0 
%(13)=13 :08 (20)=8:08(160)= 
32 rem 1 
FORZ=6 51096 :¥=Z4+32:08(2)=¥ 
:NEXT :FORZ=91T095 208 (2 )=Z: 
NEXT rrem 74 
FORZ=193T0218 :¥=2-128 :08 (2 
)=Y:NEXT rem 75 
08(133)=3 :08(134)=19:08(13 
5)=17:08(136)=16 rem 29 
FORZ=8T0255 :¥=08(Z) : 1FY<>0 
THENI8(Y)=Z trem 32 
NEXT: RETURN rrem 244 
PRINTCHRS (147) +CHRS (14) 

trem 240 
PS$(1)="1235559876":PS$(2)=" 
1235556789": P$(3)="1235554 
432" rem 153 
FORX=1T03 : PRINTX; +"="+P$(X 
) :NEXT trem 267 
PRINT" 4 -MANUAL ENTRY" 

srem 24 
PRINT: PRINT" SELECTION itn 

trem 148 
GETB$ : IFBS=""THEN350 

rrem 85 
IFBS="1"THEN PH$=P$(1) 

trem 94 
IFB$="2"THENPHS=P$ (2) 

rem 97 
IFB$="3"THENPHS=P$ (3) 

rem 100 
IFBS="4"THEN410 rrem 10 
GOTO430 rrem 100 
PRINT: PRINT"ENTER PHONE NU 
MBER" : INPUTPHS em 244 
IFLEN( PH$)<7THEN410:rem 72 
POKEZ2,100 trem 15 
PRINT: PRINT "DIALING ...":PO 
KEZ1 , 32 : FORX=1T01000 :NEXTX 

trem 211 




















450 
460 


FORPN=1LTOLEN(PH$) :rem 27 
NN=VAL(MIDS$(PHS$,PN, 1) 


470 
480 


GOSUB5 4 :NEXTPN 
FORDL=1T0300 :POK: 
Z1,100:IFPEEK(Z1 
to) 





trem 250 


490 IFPEEK(Z1)<>125THENPRINT" 
(SPACE) £+3":GOTO510 

trem 238 
500 PRINT"({RVS}(2 SPACES) (OFF) 

trem 16 
516 NEXTDL rem 101 
520 POKEZ1,0 trem 173 
530 PRINT:PRINT"NO CONNECTION 


{SPACE]FOR NR. ":PRINT" 
[DOWN] "PHS :GOTO600 :rem 83 





540 PRINTNN; :I FNN=OTHENNN=10 
trem 56 
550 FORX=LTONN : POKEZ1 , @ : FORXX= 


17045 :NEXTXX :POKEZ1 , 32: POR 
XX=1T024 :NEXTXX :NEXTX 
trem 17 
FORDL=1 T0200 :NEXTDL: RETURN 
trem 216 
FORX=1T03 : FORRR=1T020 :C(X) 
=PEEK(Z1) :NEXT:NEXT 
trem 173 
pn (u ec (2)ac(G) —2aesHENSL 
rrem 112 
";PHS" BUSY-" 
rrem 232 
FORX=1T0300 : POKEZ2 , 32 : POKE 
21,8(2 SPACES) :NEXT:GOTO43 
8 rrem 210 
FORX=110100 : POKE36878 , 15:P 
OKE36875 , 245 NEXT: POKE3687 
8,0:GOTOBS trem 233 


Power BASIC: 
QuickScan 


(Article on page 76.) 


Program 1: QuickScan—64 
Version 
188 PRINTCHR$ (147) ;CHR$(144) 
trem 58 
116 FORAD=704T0766 : READDA: POKE 
AD,DA:NEXT: REM SPRITE 
trem 4 
120 FORAD=49152T049251 :READDA: 
POKEAD,DA:(4 SPACES}CS=CS+ 
DA:NEXT:REM M-L PROGRAM 
trem 43 
138 IFCS<>11879THENPRINT "ERROR 
IN DATA STATEMENTS": END 
trem 145 
148 PRINT"ENTER SYS 49152 TO A 
CTIVATE SPRITE-BAR" 
trem 181 
DATAD ,0,8,0,0,0,0,0,0,0,0 
10,0,0,0,0,0,8,0 trem 131 
DATAD ,0,0,0,0,85,85,85,85 
185,85,85,85,85 :rem 221 
DATASS ,85,85,0,0,0,8,0,0, 
8,0,0,0,8,0,0,0,0:rem 224 
DATAG,B,8,0,0,0,0,8,0,0,08 
10,169 rem 206 
DATAL1, 166,7,153,247,7,13 
6, 208,258,169,24,160,0,24 
1153,0,208,105,48:rem 244 
DATA200 , 200,144,247,169,9 
6,141,16,208,169,8,141,108 
1208,169,56,141,12:rem 54 
DATA208 , 169,127,141, 28,20 
8,141,27,208,141,29,208,1 
41,23,268,141,21 :rem 206 
DATA208,169,1,141,37,208, 
128,169,74,160,192,141,20 
13,148,21,3,88,96 rem 2 


588 


598 PRINTNR. 


608 


619 


10806 





1601 
1862 
1863 
2908 


20601 


2082 


2063 





2004 DATA24,173,134,2,141,38,2 


@8,165,214,18,10,10,1065,3 
4,168,14,153,255 :rem 182 


2005 DATA267,136,136,208,249,7 


6,49, 234 rem 142 
Program 2: QuickScan—VIC 
Version 

18 FORA=679T0735 :READB:CK=CK+B 


15 
20 
30 
40 
58 
60 
78 


1POKEA, B: NEXT: IPCK<>6811THE 
NPRINT"DATA ERROR": END 
rem 45 
PRINT" {CLR} {DOWN]SYS 679 TO 
ACTIVATE" rem 116 
DATA 128, 169,185,141,20,3,1 
69,2,141,21,3,169 rem 250 
DATA 25,141,37,145,88,96,17 
3,15,144,72,165 :rem 180 
DATA 214,108,106, 24,105,24,20 
5,4,144,268,251 rrem 135 
DATA 162,19,202,208,253,169 
11,141,15,144 trem 109 
DATA 162,81,234, 202,208,252 
1104,141,15,144 trem 152 
DATA 76,191,234 trem 122 


Maze-Mania 


(Article on page 68.) 


18 
20 


W=5 4272 :FORT=WTOW+24 :POKET, 
O:NEXT zrem 31 
POKE657 , 128 : POKE53280 , 0: POK 
£53281 ,0:PRINT"(CLR} 
{8 Down) (GRN)"TAB(14)"(RVS) 
MAZE-MANIA rem 78 
PRINT" (6 DOWN}"TAB(4)"£43PL 
EASE WAIT WHILE DATA IS LOA 
DED": DIMU( 255) ,H(255) 

rrem 79 
CZ=0 :FORIG=49152T049619:REA 
DYA: POKEIG , YA: CZ=CZ+YA:NEXT 

rrem 175 
FORBI=501761T050442 : READKA : P 
OKEBI , KA:CZ=CZ+KA:NEXT 

rrem 40 
IFCZ<>91037THENPRINT" { DOWN} 
{8 SPACES) (RVS)(WHTJERROR I 
N DATA STATEMENTSE43":STOP 

rem 146 
FORF=11T023:READU(F),H(F) :NE 
xT trem 208 
LV=1:VL=LV+1 sPL=1:MN(1)=32M 
N(2)=3:PP=65 :J=5 :K=15:GS$=" 
(WHTJQ":POKE198,® :rem 101 
FORI=1702 :SC(I)=@:NEXT 

rem 44 


108 PRINT" (CLR) (3 DOWN) {GRN)"T 


AB(12)"(RVS}MAZE-MANIA":PR 
INT" {4 DOWN) "TAB(11)"{RVS} 
1(OFF} NORMAL GAME" 

trem 188 


110 PRINT"{2 DOWN) "TAB(11)" 


(RvS}2(OFF) FADE GAME":PRI 
nT"{2 DOWN) "TAB(11)"(RVS)3 
{OFF} NERVOUS GAME" 

rem 113 


120 PRINT"({3 DOWN}"TAB(10) "INP 


UT YOUR CHOICE (WHT}RBI 
(GRN) (LEFT) "; :POKE204,0 
trem 3 


138 GETMTS : IFMT$=""ORMT$<"1"OR 


MT$>"3"THEN130 trem 61 


146 PRINTMT$:PRINT"(2 DOWN) "TA 


B(7)"HOW MANY PLAYERS (1 0 
R 2) (WHT) RBI(LEFT){GRN}"; 
:POKE204,6 :rem 168 





156 GETA$ :1FA$=""ORAS<"1"ORAS> 





THEN150 trem 192 


160 NP=VAL(A$) :MT=VAL (MTS) :PRI 


NTAS$ : POKE204, 1 : POKE207 ,6:P 





176 


180 


198 


200 


210 


220 


230 


240 


250 


260 


278 


280 


298 


300 


318 


320 


338 


340 


358 
360 


370 
380 


39 


400 
410 


426 


430 


rrem 217 
{rvs} 
{Rvs} 
{RVS}B 


OKE646 , VL 
mTs=" {RVS} [OFF) 
{orr) {Rvs} {OFF} 
{orr} {Rvs} [orF} 
{ORF} ":MS="(RVS) 
(12 spACES)":MMS=" {RIGHT} 
(Rvs]Blorr}"4mrs+" (2 LEFT) 
trem 75 
A=1226 :B=55498 : POKE56322,P 
EEK(56322)AND127 —:rem 38 
C=A:D=B: PRINT" (CLR) [DOWN] 
{2 SPACES) LEVEL"LVTAB(15)" 
TIME, 006" TAB( 28) "SCORE"SC ( 





PL) :rem 135 
PRINT" (DOWN} (RVS}£AICCCCC 
CCCCCCCCMAZE-MAN TACCCCCCCC 
eecccksy" trem 114 
FORI=17T017:PRINT" (RVS}B 





(orF) "MTs$TaB(25)MMS" (RVS} 
B{OFF)}":NEXT: PRINT" (HOME } 
TS DOWN)"; :FORI=1T08 

rem 67 


PRINTTAB(14)M§" { DOWN] ":NEX 
T:PRINT" (HOME) (4 DOWN) "TAB 
(see trem 31 
PRINT" (HOME) (12 DOWN) "TAB( 
38)" "sPRINT"(7 DOWN) "'TAB( 
26) = rem 114 
PRINT" {RVS)£Z3CCcCcccccccc 


eecececececceeccececcecccc 
Ex3": PRINT" [DOWN] "TAB(12)" 
PLAYER" PL; 

PRINTTAB (22) "MEN 
'TOMN( PL) :PRINTGS; 





:NEXT 
rem 248 

T=INT(15*RND(1)) sA=A+T*40: 

B=B+T* 40 :POKEA+1, 32: POKEA+ 


34,32 trem 205 
FORP=5TO11STEP2 :Q=INT(11*R 
ND(1))+6:Z=INT(11*RND(1))+ 
6:PRINT" {HOME}"; :FORI=0T0Q 
rem 144 
PRINT" {DOWN}"; :NEXTI:PRINT 
TAB(P)" ":PRINT" {HOME }" 
ORI=0TOZ:PRINT" (DOWN) 
XTI rem 66 
PRINTTAB(P+23)" "7 :NEXTP:F 
ORQ=4TO1LOSTEP2: P=INT(10*RN 
D(1))+15:PRINT" (HOME}"; 
rem 180 
FORI=0TOQ:PRINT" { DOWN) "7 
EXTI:PRINTTAB(P);:PRINT" " 
:NEXTQ srem 140 
POKE1542,102:POKE55814 ,@:P 
OKE1543, 160: POKE55815 0 
rrem 224 
AASINT(A/256) : BB=AA* 256 :CC 
=A-BB1 POKE167 ,CCs POKE169 ,C 
C:POKE168, AA: POKE170, AA 





















trem 169 
POKE911,K:POKE91@, 200: POKE 
912,K trem 20 


POKE9@B , 0: POKE9O4 , J: POKE9O 
5, 0:POKE962 ,@:POKE903 ,:PO 
KE9@1 , 8:POKE5S6325, PP 

srem 252 
pitta 2S ESeORESeay 1:GOT037 

trem 154 
TeMP=3THENPOKES03, 1 

trem 144 
SYS49152 zrem 158 
IFPEEK ( 900)=1THENSYS65418: 
GOTO41O trem 229 


IFPEEK( 916) <=@THENSYS65418 
:GOTO700 trem 36 
GoTo380 rrem 104 


IFPEEK( 167) +256*PEEK( 168)= 
1541 THENT=PEEK (910) :SC(PL) 
=SC(PL)+(T*LV) :GOTO430 
rem 58 
N1=1:N2=9 :GOSUB736:MN(PL)= 
MN(PL)-1:GOTO520 :rem 246 
POKE1541, 32:POKE1542,81:PO 
KE55814,1:N1=10 :N2=23 :GOSU 
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440 


450 
460 


470 


480 
490 


5008 
510 


520 
530 
540 


550 


560 


570 


580 


598 


600 


610 


626 
630 


640 
650 
660 


670 


680 


698 


756 


760 


770 





B730 em 192 
IFA$="1"THENMN( PL)=MN(PL) + 
1:GOTO490 trem 38 
POKE646 , VL. trem 54 


IFPL=] THENGOSUB68@ : PL=2 :CK 
=1:GOTO510 trem 4 


$2=82+SC (PL) :GOSUB686: PL=1 
:GOTO490 trem 60 
IFAS="L"THENPL=2  :rem 124 


PP=PP-5 :CK=O:J=J+1 :K=K+4 iL, 
VsLV+1 : IFLV=11 THEN660 

rrem 112 
VL=VL+1 trem 114 
GOSUB710 : POKE9G6 , 0 : POKE646 
1VL:GOTO179 trem 238 
IEMN(PL)>OTHENS1@ :rem 225 
IFA$=" 1" THENS 70 trem 9 
PRINT" {HOME} {12 DOWN) "TAB ( 
11)"(WHT)GAME OVER PLAYER" 
PL: LV(PL)=LV :GOSUB698 

rrem 220 
IPPL=2THENA$="1":PL=1:GOTO 

trem 203 
A$="1":PL=2:GOT0516 :rem @ 
LV(PL)=LV:PRINT" (CLR) 
(11 DOWN) "TAB(14)"(GRNJGAM 
E OVER" :GOSUB690 srem 1 
PRINT" (CLR}{2 DOWN) "TAB(15 
YE ECORBORRDAARRINTRAR (LS) 
"B18 T9(3 DOWN)" trem, 
POKES6322, PEEK( 56322) ORI23 
:FORI=1TONP trem 200 
PRINT" ( DOWN} "TAB(8)" PLAYER 
"ISPC(5-LEN(STR$(SC(I))))S 
C(I) TAB( 27) "LEVEL"LV(I)=1 

trem 176 
NEXT:PRINT"{5 DOWN) "TAB(12 
)"PRESS (RVS)FIREBUTTON 
{orF) (DowN}":PRINTTAB(13)" 
TO PLAY AGAIN" trem 25 
WAIT56321,16,16:WAIT56321, 
16 trem 247 
PRINT" (CLR}":POKE53265, 27: 
POKE53 276, 200:GOTOBO:rem 3 
IFCK=1 THEN496 trem 241 
Goros10 trem 106 
PRINT" (CLR) {7 DOWN) "TAB(14 
)"(GRNJWELL DONELI" rrem 2 
PRINT" {DOWN} (3 SPACES} YOU 
{SPACE]HAVE COMPLETED ALL 
{SPACE} TEN LEVELS" :GOSUB69 
@:GOTO58O trem 49 
PRINT" (HOME) ( DOWN) "TAB (28) 
"SCORE"SC (PL) :MN(PL)=MN( PL. 
DEASHORTERROLeOa;NEXESRETY 

trem 26 
PORT=1102800 NEXT: RETURN 

trem 61 

PRINT" {HOME} {12 DOWN) "TAB( 
14)"{WHTJOUT OF TIME":FORT 
=1T0500 :NEXT:GOTO420 


trem 107 
IFMN( PL) > 3'THENMN( PL)=3 

trem 71 
RETURN trem 121 
POKEW+24,15:POKEW+S , 17 :POK 
EW+6 , 241 trem 219 


FORI=N1 TON2 : POKEW, U( I) :POK 
EW+1,H(I) :POKEW+4, 17 :FORT= 
17056 :NEXT: POKEW+4 , 16 

trem 126 


POKEW+1 , U( I) -20: POKEW, H: PO 
KEW+4, 17 :FORT=1T050 :NEXT: P 
OKEW+4, 16 :NEXT: RETURN 

trem 184 
DATA 126,169,255,141,15,21 
2,169,129,141,18,212,162,1 
7,173,27 trem 84 
DATA 212,74,74,74,74,205,1 
33,3,144,244,157,48,194,15 
7,8 trem 165 
DATA 194, 262,16,235,162,35 
1189,158,193,157,96,194,15 
7,144,194 trem 168 
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800 


810 


820 


830 


840 


850 


860 


878 


880 


896 


900 


910 


920 


930 


940 


958 


960 


970 


980 


9908 


1608 


1016 


1626 


1030 


1046 


1058 


1666 


DATA 138,157,192,194,138,7 
4,168,189,186,193,157,240, 
194,202,16 trem 229 
DATA 231,169,73,141,2,3,1 
69,192,141,21,3,88,96,173, 
132 trem 93 
DATA 3,246,3,76,49,234,173 
ae 3,240, 2i, 173,27, 212, 2 

trem 22 
DATA 50,176,14,230,2,165,2 
141,7,9,24, 141,17, 208,141 

trem 136 
DATA 22,208,162,17,222,0,1 
94,240,3,76,80,193,189,48, 
194 trem 103 
DATA 157,0,194,138,16,168, 
189, 246,194,16,27,73,255,2 
4,105 trem 205 
DATA 1,133,251,185,96,194, 
56 gaat 251,153,96,194,18 





97, trem 28 
DATA 7333, 0,153,97,194,76,1 
76,192,185, 96,194, 24,125, 2 
46,194 trem 19 
DATA 153,96,194,185,97,194 
+105 ,0,153,97,194,138,10,1 
68,185 trem 26 
DATA 96,194,133,251,185,97 
1194,133,252,148,61,3,160, 
8,177 trem 207 
DATA 251,261,160,144,44,18 
9,248,194,73,255,24,105,1, 
157,248 trem 34 
DATA 194,173,27,212,74,74, 
ie: 74, 205,133,3,144,3,157, 

trem 52 
DATA 194,172,61,3,185,144, 
194,153, 96,194, 185,145,194 
1153,97 trem 72 
DATA 194,76,80,193,201,81, 
208; 8,169,1,141,132,3, 76,8 

trem 6 
DATA 193,172,61,3,185,144, 
194,133,253,185,145,194,13 
3,254,160 trem 148 
DATA 8,169,32,145,253,169, 
102,145,251,172,61,3,165,2 
51,153 trem 238 
DATA 144,194,24,105,0,133, 
253,165,252,153,145,194,10 
5,212,133 trem 124 
DATA 254,152,41,7,208,2,16 
9, 13, 172,134,3,248,19,254, 
19 trem 92 
DATA 194,189,192,194,201,8 
1144,5,169,0,157,192,194,1 
70,189 trem 22 
DATA 264,193,160,6,145,253 
1202,48,3,76,109,192,206,1 


44,3 trem 139 
DATA 268, 26,173,143,3,141, 
144,3,173,142,3,208,6,238, 
132 trem 80 
DATA 3,76,147,193,206,142 
13,162,47,173,142,3,232,5 
6,233 trem 129 
DATA 100,16,258,142,60,4, 
24,185,100,162,47,232,56, 
233,10 trem 144 
DATA 16,258,142,61,4,24,1 
05,16,9,48,141,62,4,76,8 

trem 76 
DATA 196,36,7,38,7,48,7,4 
2,7,44,7,254,4,78,5 

trem 114 
DATA 158,5,238,5,62,6,142 
16,222,6,187,4,189,4,191 

trem 104 
DATA 4,193,4,195,4,197,4, 
216,216,216,216,216,1,1,1 
slyly Lyd trem 249 
DATA 40,40,40,40,46,40,12 
+11,0,0,0,11,12,0,173,137 
+3,205,136,3,176 :rem 94 





1670 


1086 


1098 


1100 


1110 


1120 


1136 


1148 


1150 


1168 


1176 


1180 


1198 


1208 


1216 


1220 


1236 


1246 


DATA 6,238,137,3,76,49,23 
4,160,0,234,234,234,148,1 
37,3,169,32,145 :rem 118 
DATA 167,165,169,133,167, 
165, 170,133,168, 162,6,134 
14,134,5,173,1 trem 74 
DATA 226,74,176,1,136,74, 
176,1,200,74,176,1,202,74 
1176,1,232,134 trem 59 
DATA 4,132,5,74,42,41,1,1 
41,188,2,165,4,201,1,240, 
18,201,255 trem 89 
DATA 248,3,76,145,196,165 
1169, 208,2,198,176,198,16 
9,76,108,196, 238,169 

trem 144 
DATA 208,2,230,170,160,0, 
177,169,201,32,208,3,76,1 
26,196, 201,102,240 

trem 240 
DATA 3,76,137,196,169,1,1 
41,132,3,76,229,196,165,1 
69,133,167,165,170:rem 37 
DATA 133,168,76,229,196,1 
65,167,133, 169,165, 168,13 
3,176,165,5,201,1,240 

trem 178 
DATA 23,201,255,240,3,76, 
229,196 ,56,165,169,233,40 
+133,169,165,176,233 

trem 122 
DATA 6,133,178,76,187,196 
+24,165,169,105,40,133,16 
9,165,170,105,0,133 

trem 62 
DATA 170,160,06,177,169,20 
1,32,208,3,76,221,196,201 
,102,208,8,169,1 trem 157 
DATA 141,132,3,76,229,196 
,165,167,133,169,165,168, 
133,176,76,229,196,165 

trem 258 
DATA 170,133,168,165,169, 
133,167,160,0,169,61,145, 
167,165,168,72,165,167 

trem 246 
DATA 72,24,165,167,105,0, 
133,167,165,168,105,212,1 
33,168 trem 185 
DATA 169,1,145,167,164,13 
3,167,104,133,168,76,49,2 
34,78 trem 146 
DATA 76,68,66,64,62,60,58 
156,54,52,50,48,46,44,42, 
40,38 trem 152 
DATA 56,56,144,254,58,56, 
40,108, 28,16,56,124,254,2 
54,124,56 trem 94 
DATA 215,254,124,255,255, 
223,147,161,255,255,255,2 
55,255 trem 282 





Horizons: Litter 
Patrol 


(Article on page 60.) 


188 


110 
120 
138 
146 
156 
160 


GRAPHIC 6,1:COLOR 6,12:COL 
OR 4,6:GOSUB760 :DF=1:LV=5 
+R=RND(-TI) :R=RND(O) 
FORI=17040:SP$=SP$+" 
=LNS+"=" 
BLS=BL$+CHRS (216) :UL$=UL$+ 
CHRS (183) :NEXT 
BLS=CHRS (146) +BLS :UL$=CHR$ 
(146)+UL$ : SP$=CHRS$ (18) +SP$ 
FORI=1T08:SPRITE I,@:MOVSP 
R I,8,0:NEXT 
PRINTCHR$(147);:COLOR 5,6: 
PRINTSP$ 

TL=38:COLOR 5,7:PRINTLEFTS$ 


“TLNS. 











178 
188 


190 


208 


2108 


220 
230 


240 
250 


268 
278 


280 
298 
3008 
318 
320 
338 
340 


350 
360 


378 


388 


390 
400 


410 
4208 
430 
440 
450 
460 


470 
480 


490 


500 
510 


528 


530 
540 


550 


560 
578 
580 
598 


(SP$,4);:COLOR 5,6:PRINT" 
"SPS 

PRINT: PRINT:COLOR 5,16:PRI 
NTLN$ : PRINT: PRINT 

COLOR 5,6:PRINT SP$SP$:PRI 
NT:PRINT:COLOR 5,16:PRINTL 
N$ PRINT: PRINT 

COLOR 5,6:PRINT SP$SP$:PRI 
NT:PRINT:COLOR 5,8:PRINTBL 
$;UL$:PRINT:PRINT 

COLOR 5,6:PRINTSPS$LEFTS$ (SP 
$, 48) CHR$(157)CHR$(148)CHR 
$(32)7 

COLOR 5,14:CHAR 1,12,0," L 
ITTER PATROL ",1:GOSUB720 
{SPACE} :GOSUB730 

COLOR 5,6:FOR Y=2 TO 27 ST 


EP 7 
FOR X=8 TO 32 STEP 12:CHAR 


1,X,¥,CHR$(215),1:NEXT:NE 
xT 

MS="V1 02 T@ IEGGEGGEGG 
#E I DFFDFFDFF .QE" 
MS=MS+"I EGGEGGEGG .Q A I 
{SPACE}AAFGGEFFD .Q CRRR" 
SPRCOLOR 2,1 

RESTORE1116 :FORI=2T07 + REA 
D SY,SN:SPRSAV SS§$(SN),I 
MOVSPR I,0,56+SY*B 

SPRITE I,1,1+1,0,0,0,1 
ANG8(I)=90-180* (SN=2) :SPD% 
(1)=5*RND(1)+DF 

MOVSPR I, ANG%(I)#SPD8(I) 
NEXT 

XP=102:YP=237:MOVSPR 1,XP, 
YP 

SPRITE 1,1,11,0,0,0,1:SPRS 
AV SS§(6),1 

COLLISION 1,580 

IF DP=1 THEN:PLAY M$ :SOUND 
1,0,0 

IFTI-T> 126THENCOLOR 5,6:CH 
AR 1,TL,1,CHR§$(32),1:T=TIs 
TL=TL~1:1FTL<@THEN649 

GET A$:IF A$<>"" THEN GOSU 
B740 :GETKEY A$ :GOSUB750 
IF RND(1)<.95 THEN420 
S8=2+6*RND(1) :X=RSPPOS(S%, 
6) :¥=RSPPOS(S%,1) 

IF 931 AND X<336 THEN COL 
OR 5,2:CHAR 1, (X=24)/8,(Y- 
56)/8+1," 
J=JOY(1):IF J=@ THEN370 

IF J AND 128 THEN48O 
XP=XP+DX(J) IF XP<24 OR XP 
>343 THEN XP=XP-DX(J) 
YP=YP+DY(J):IF YP<61 OR YP 
>237 THEN YP=YP=DY(J) 
MOVSPR 1,XP,YP 

GOT0370 

X8=(XP-24) /8+1:¥8=(YP-50) / 
8: SP=1024+X%+40*Y% 1 C=PEEK( 
SP) 

IF C=46 AND HT=6 THEN BEGI 
NrPOKE 3584,65:POKESP, 32:H 
Tel 

:SOUND 1,700,20,0,600,10,3 
:SC=SC+1:GOSUB720_ :BEND 
IF HT AND C=215 THEN BEGIN 
:POKE SP,209:POKE 3584,64: 
SOUND 1,5000,5,,,,3 

:HT=6 :F=F+1 :SC=SC+16 :GOSUB 


Q 





728 :PL=FL+1:1F FL¢12 THEN 
3708 
1GOSUB740 :FOR I=6 TO 63 


:COLOR 5, (IAND15)+1:CHAR 1 
14,12,"BONUS 1608 POINTS F 
OR COMPLETION", 1 

2 NEXT: SC=SC+1000 :DF=DF-(D 
F<3) :FL=@:GOTO146 

BEND 

GOTO370 

IF BUMP(1)=@ THEN RETURN 
COLOR 5,9:CHAR 1,12,6, "OHI 





600 


610 


620 


630 
649 


658 


660 
670 
680 
698 
708 
728 
7368 
748 
750 
768 
770 
780 
798 
810 
820 
830 
840 
850 
966 
910 
920 
930 
940 
950 


10008 
10168 


1026 
1036 
1048 


1058 
1108 


1118 


YOWEE OUCHI",1 
FORI=1T011:SPRITE 1,1,1:S0 
UND 1,2000+RND(1)*1000,1,, 
11 32tNEXT 

COLOR 5,14;:CHAR 1,12,0," L 
ITTER PATROL ",1 
XP=162:YP=237 :MOVSPR 1,XP, 
YP:POKE 3584, 64:HT=6:A=BUM 


P(1) 
LV=LV~-1 :GOSUB730 :IF LV TH 
EN RETURN 

COLLISION 1:PLAY "TO 02 I 


(SPACE]JCCEEGRBRAA 
F DQ C RR":SOUND 1,0, 
COLOR 5,16:CHAR 1,7,12,"GA 
ME OVER -- PRESS TRIGGER", 
11C=O 

IF JOY(1)=128 THEN660 

IF JOY(1)=128 THEN69O 
COLOR 5,C+1:CHAR 1,7,12," 
AME OVER", 1:C=(C+1)ANDL 
070670 
FORI=1T08:SPRITE I,@:MOVSP 
R I,0,0:NEXT 

RUN 

COLOR 5,15:CHAR 1,0,0,"SCO 
REt"+MIDS$(STR$(SC),2),1:RE 
‘TURN 

COLOR 5,4:CHAR 1,30,0, "TRU 
CKS:"+STRS(LV),1:RETURN 
FORI=2T07 :MOVSPR 1,90#0:NE 
XT: RETURN 

FOR I=2T07:MOVSPR I,ANG%(I 
)#SPD¢(1I) :NEXT: RETURN 

FOR Is@ TO 8:READ DX(I),DY 
(1) NEXT 

FOR I=@ TO 2:FOR J=1 TO 67 
:READ A$:SS$(I)=SS$(1)+CHR 
$(DEC(A$)) sNEXT:NEXT 
RETURN 

DATA 6,6,0,-8,8,-8,8,0,8,8 
,8,8,-8,8,-8,0,-8,-8 

DATA 40,10,08,40,10,00,40, 
10,08,15,40,00,05,08,00,05 
DATA 08,00,2A,80,00,EA,BO, 
00, EA, BO ,60,2A, 80,08, 2A, 80 
DATA 66,EA,BO,00,EA,BO,00, 
06,00, 00,00 ,00,00,00, 00,00 
DATA 68,00 ,80,00,60,00,00, 
89,08, 06, 00,00,00,08,00,17 
DATA 00,14 ,00 

REM CAR FACING LEFT 

DATA 66,00,00,00,00,00,60, 
98 , 00, 00, 00,00 ,00,00,00,00 
DATA 80 ,00,0F,00,3C,AB,96, 
A9,2B,AA,6A,3A,7D,6A,2A,7D 
DATA 6A,3A,7D,6A,2B,AA,6A, 
AB, 96,A9, OF ,00,3C, 00, 00,00 
DATA 68,00 ,60,00,60,00,00, 
86, 06,00, 00,00,00,00,00,17 
DATA 60,14 ,68 

REM CAR FACING RIGHT 

DATA 80,00,00,00,06,00,00 
100,65, 00, 00,00,00,00,00 
DATA 60,00,00,3C,00,F0,6A 
196,BA,69,AA,E8,A9,7D,AC 
DATA A9,7D,A8,A9,7D,AC,69 
,AA, EB, 6A, 96 ,BA, 3C, 60 , FO 
DATA 88,00 ,00,00,00,00,00 
08 , 88,00, 85,00, 00,00, 
DATA 00,00,06,17,00,14,00 
DATA POSITION AND DIRECTI 
ON OF EACH CAR 

DATA 2,1,5,1,9,2,12,2,16, 
1,26,2 














VIC Emulator 


(See instructions in article on page 84 
before typing in.) 


49152 
49158 


1169,160,133,252,169,224,083 
1133,254,169,000,133,251,178 





49164 
49178 
49176 
49182 
49188 
49194 
49200 
49206 
49212 
49218 
49224 
49230 
49236 
49242 
49248 
49254 
49260 
49266 
49272 
49278 
49284 
49290 
49296 
49302 
49308 
49314 
49320 
49326 
49332 
49338 
49344 
49350 
49356 
49362 
49368 
49374 
49380 
49386 
49392 
49398 
49404 
49410 
49416 
49422 
49428 
49434 
49440 
49446 
49452 
49458 
49464 
49470 
49476 
49482 
49488 
49494 
49500 
49506 
49512 
49518 
49524 
49530 
49536 
49542 
49548 
49554 
49560 
49566 
49572 
49578 
49584 
49590 
49596 
49602 
49608 
49614 
49620 
49626 
49632 
49638 
49644 
49650 
49656 
49662 
49668 
49674 
49680 
49686 
49692 
49698 
49704 
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+133,253,162,032,168,177,169 
1251,145,251,177, 253,145,216 
253,136,208, 245, 230,252,068 
230,254, 202,208, 238,160,042 
1062,185,240,192,153,039,079 
1184,185,243,192,153,218,193 
+228,185,246,192,153,110,138 
1168,136,016,235, 169,072,074 
1141, 038,863, 169,192,141,232 
1039 ,003,056,176,049, 234,111 
136,157,048 048,072,152, 065 
1072,138,072, 056,032, 240,176 
1255,192,009,176, 003,076,027 
1105,192,192,031,144,015,601 
1169, 013,032, 202,241, 056,041 
1032, 240,255, 160,009,024,054 
1032,240,255,104,170,104,245 
1168, 104,076,224,198, 234,094 
1173,000,221,041,252,009,048 
1001141, 000,221,169, 005,151 
1141, 024, 208,169,128,141,175 
1136, 002, 169,147,032, 210,066 
255,165,001, 041,253,133,224 
001,169, 240,141,605, 144,082 
169,158,141, 002,144,169,163 
1216,141,022, 208, 169,006,156 
+141,134,002,169,001,141, 244 
1033, 208, 169,003,141, 032,248 
1208,076,233,197,000, 000,126 
1000 , 086 , 080,000, 000,000,186 
1165,021,072,165,020,072,195 
1032, 247,183, 234,056,176, 102 
1815, 160,000,177,020,168,232 
1104,133,020,104,133,021,213 
1076, 162,179, 234,165,021,029 
166,020, 201,016,144,003,004 
1076,033,193,201,002,208,173 
1029,076, 250,192, 234,234,225 
1076, 240,193, 169,001,234,129 
192,192,124, 234,224,136 ,068 
1208, 207,173 ,005,144,032,253 
202,196,076, 209,192, 234,087 
1201, 000,240 ,803,076,205,221 
1192,076,119,197,176, 248,254 
138,105,616 ,133,820, 169,889 
1003,133,021,076, 205,192,144 
1234, 201,032,176,035,04 
1254,133,002,173,005,144, 
1032, 202,196,197,002, 240,145 
1003 ,076,205,192,165,021, 200 
1041 ,001,032,045,194,165,022 
1021,009,128,133,021,076,194 
1205, 192,234, 234,201,128,238 
1176 , 803, 076,205,192,201,159 
1144,176,026,105 080,133,232 
1021,128,165,001,072,041,250 
251,133,001, 160,000,177,046 
1020, 168, 104,133,001, 088,100 
1076,210,192, 234,234, 201,227 
1144, 208,038, 224,008, 240,204 
1604, 224,009, 208,211,138,142 
1105 016,133,097, 169,212,686 
1133, 098,169,000,170,168,098 
133,099,024, 113,097,144,232 
1062, 230,699,202, 208,247,104 
1165, 099,876, 209,192, 201,064 
1145, 240,003,076 ,080,197,125 
$224,017, 240, 004,224,031,130 
1208,038,032,172,193,076,115 
1269,192,173,001,220,072,013 
1041,007,010,016,168,104,004 
1041, 016, 008,152,040,240,167 
1003 ,089,032,168,165,001,054 
1041, 016,868,152 ,846,240,179 
1002, 009,064,096 ,224,632,115 
1240 ,003,676, 205,192, 162,060 
128,173,061,220,041,008,015 
1208,001,178,138,876, 209,252 
1192, 234,234, 000,000 ,000,116 
10608 , 000 , 060,000,000, 000,230 
1000 ,000 ,000,000,134,002,116 
1165, 021,201, 016,176,003, 
1076, 219,196, 201,832,144 ,092 
1003076, 163,194,032, 000,210 
1197,165,021,041,254,133,047 
:096,173,085,144,032, 202,150 
2196,197, 096,240,603 ,076,056 
021,197, 165,021,041, 001,212 
1032,045,194,076,152,19: 
008,080 , 066,000,000, 000, 
1000, 000 ,060,000,000,133,173 
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49710 
49716 
49722 
49728 
49734 
49740 
49746 
49752 
49758 
49764 
49770 
49776 
49782 
49788 
49794 
49800 
49806 
49812 
49818 
49824 
49830 
49836 
49842 
49848 
49854 
49860 
49866 
49872 
49878 
49984 
49890 
49896 
49902 
49908 
49914 
49920 
49926 
49932 
49938 
49944 
49950 
49956 
49962 
49968 
49974 
49980 
49986 
49992 
49998 
58004 
50016 
50016 
50022 
50028 
58034 
50040 
50046 
50052 
50058 
50064 
58070 
50076 
59082 
50088 
50094 
50100 
50106 
50112 
50118 
50124 
50130 
50136 
50142 
50148 
50154 
50160 
58166 
50172 
50178 
50184 
50190 
56196 
50202 
50208 
50214 
50220 
50226 
50232 
50238 
50244 
50256 


1099, 165,020,133,098,173,222 
3093, 192,056 ,237,086,192,140 
+133, 096,169,688, 133,097,174 
2032,071,194,056,176,042,123 
1234, 169,000,133,100,133,071 
101,162,016 ,006,098,038,241 
3099, 838, 100,038,101,165,111 
100,956,229 ,096,168,165,134 
1101,229,097,144, 006,230,133 
1098, 133,101,132, 100,202,698 
1208, 227,096, 234, 234', 234,059 
+169, 080,133,021, 165,898,186 
1010, 010,010,133,020,162,207 
1004 ,024,101,020,144,002,163 
$230,021, 202,208, 246,824,037 
101,100,144, 002,238,021,222 
1024, 105,009,144, 002,230,144 
1021,133,020,096,169,128,203 
1024,101,021,133,021,876,018 
1000, 197,234,201,148,176,092 
1003 ,076, 202,194, 201,152,226 
144,003,076 ,000,197,032,112 
2000,197,165,021,041,253,087 
2056 ,233,148,133,021,632,039 
3045,194,169,216,024,101,171 
1021,133,021,076,000,197,132 
£201,144, 240,003 ,076,183,025 
1197, 166,062, 165,020,201,191 
2015, 208,018,138,041,007,129 
1141,032,208,141,034,208,216 
138,032, 057,197,076, 000,214 
197,234,234, 201,014, 208,040 
2007, 142, 024,212,076 ,066,253 
197,234,201 ,016,176,003,041 
876,132,195, 233,018, 162,034 
032,201,003, 208,002,162,096 
128,168,185 ,098,195,872,076 
165,002, 201,128,176,009,181 
1104, 168,138,153,004,212,029 
2076 ,000,197,041,127,133,086 
196,185, 094,195, 133,097,062 
1032,109,195,152,010,168,190 
185,098,195,101,098,133,084 
:098,200,185,098,195,161,157 
7099,133,099,234,104,168,123 
165,698, 153,000,212,165,085 
1099,153,001,212, 169,000,188 
2153,005,212,169,240,153,236 
1006 ,212,138,009,001,153,085 
1004, 212,076 ,000,197,234,839 
1000, 087,014,000 ,033,058, 202 
1117, 058,624,002 ,848 004,893 
097,008,048, 004, 234,234,215 
234,169, 800,160 ,008,070,237 
1096,144,003,024,101,097,067 
2106,102,098,136, 208,243,245 
1133, 099, 096,234,234,234,132 
1201, 005, 240,003,076 ,006,151 
1196, 165,002, 205,005, 144,087 
1208001 ,896,165,002,041,145 
015,208, 004,169,004, 208,246 
1083, 201 , 002,208,004, 169,055 
1006 , 208,075,056, 233,012,240 
2176 ,803 ,076,006,196,133,246 
096,816, 010,009,016,133,192 
2099,169,000,133,098,133,044 
100,168, 169,136,133,101,225 
1162,008,177,098,145,100,114 
136,208, 249,230,101, 230,072 
1099, 202,240,023, 224,004,228 
1208, 238, 165,096, 201,003,097 
1208, 232,120,165,001,041,215 
251,133,001, 169, 208,133,093 
2899, 208,219,165,001,009,161 
004,133,001, 088, 169,002,119 
133,096,173 ,024, 208,041,147 
240,005, 096,141,024,208,192 
2076 ,006,196,234,234,234,208 
£234,234, 234,234, 165,020,099 
201,002, 240,027,201 ,005,172 
+240,003,076,000,197,165,183 
2002 ,041,240,133,097,173,194 
1005 ,144,041,240,197,097,238 
:208,022,076,000,197,234,001 
234,165, 002,041,127,201,040 
1048,144,001,096,105,089,191 
:141,093,192,173,005,144,036 
2032, 202,196,133,169,032,052 
3080,197,173,005,144,032,101 
:202,196,133,098,169,00,098 
1133,097,133, 168,133,106 ,076 
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56256 
50262 
50268 
50274 
50288 
50286 
50292 
50298 
50304 
50310 
50316 
50322 
50328 
50334 
50340 
50346 
50352 
50358 
50364 
50370 
50376 
50382 
50388 
58394 
50400 
50406 
50412 
50418 
50424 
50430 
50436 
50442 
50448 
50454 
50460 
50466 
50472 
50478 
50484 
50490 
58496 
56502 
50568 
50514 
58528 
58526 
50532 
50538 
50544 


50556 
50556 
50562 
50568 
50574 
50580 
50586 
50592 
50598 
50604 
506168 
50616 
50622 
50628 
50634 
50648 
58646 
50652 
50658 
50664 
50670 
50676 
50682 
50688 
50694 
50700 
50706 
50712 
50718 
50724 
50730 
50736 
50742 
50748 
50754 
50768 
58766 
50772 
50778 
56784 
50796 
50796 


133,108, 169,128,133,100,683 
+169,216,133,171, 169,009,185 
+234,234,234,234,133,099,236 
133,178,165,169, 032,117,116 
3196,133,107,165,098,032,067 
+117,196,133,109, 056,176,129 
2011,162,148,041 ,862,240,208 
1002, 162,150,138, 096,234,136 
1162,822,173,093,192,233,235 
:008,133,101,164,101,136,009 
2177, 899,145,168,177,097 ,235 
145,099, 177,178,145,106,220 
3177, 108,145,170,136,016,136 
$237,165, 097,024,101,101,115 
2133,097,133,168,133,106,166 
133,108, 144,008, 230,098,123 
230,169, 230,107,230,109,227 
1165, 899, 024,105,040,133,236 
1099 ,133,170,144,004,230,200 
100, 230,171,202, 208,193,618 
1096 ,234,041,240,056,233,076 
+192,074,074, 609, 016,044,103 
2002 ,144,016 ,802,009, 002,131 
2096, 165,021, 166,020,201,119 
2082, 208 ,916,224,136,208,244 
1003 , 096, 234, 234,076 , 008,105 
2197, 201,000,208, 249,224,035 
243,176, 245,224,217,144,211 
1001 , 896,224 ,803,176,236,216 
1144, 008, 165,062, 160,000,221 
1145 ,820,096,234,138,105,230 
016,133, 020,169,003,133,228 
621,076 ,000,197,234,032,064 
:000,197,173,805,144,841,070 
3015 ,056,233,012,176,001,009 
2096 , 16,010, 089,016,133,052 
2097,165,021,856,229,097,193 
176,001,096 ,105,135,133,180 
1021 ,076,000,197,234,074,142 
1074 ,074,074,141,033, 208,150 
1096 , 234,138,874 ,074,074,242 
2074,141, 035,208,076 , 808,092 
197,234, 234,234,169,148,012 
2044, 802,144,016 ,002, 169,203 
2158,133,002,165,621,041,088 
254,197, 002,248, 003,076,098 
3205,192,165,021,041,001,213 
2032,045,194,165,021,624,075 
+105,216,133,021,076,205,100 


+192,224,197,240, 007,224,178 
1003 ,076,018,193,234,234,114 
1165,197, 201,064,144, 003,136 
2076, 205,192,872 ,041,007,217 
£168,185, 164,197,133 ,002, 223 
104,074,074 ,074,168,165,039 
3002 ,624,121,172,197,076,234 
209,192, 234,234,007 ,015,027 
1023 ,063,039,047,055,031,168 
1000, 250,251,252, 253,254,152 
1255,249, 234,234, 234,201,049 
1145 ,248,003,076,000,197,077 
+166 , 020, 224,028, 240,003,103 
1076 , 088,197,165, 802,041,165 
1008, 208,013,169, 001,133,222 
192,165,001 ,889,032,133,228 
2801 ,076 ,000,197,169,00,145 
3133,192,165,001,041 ,223,207 
1133, 001,076 ,6808,197,234,099 
1234,162,008,134,097,160,003 
1006,132,098,185,102,198,185 
1200,190, 102,198, 168,024,102 
1032,248, 255,164,098, 200,215 
200,190, 102,198, 200,185,051 
+102,198, 032,210, 255,200,235 
1202 ,208, 246,198,097, 201 
£226 ,032,207,255,201,049, 
1144,249,201,054,176,245,069 
1056,233,049,010,010, 168,044 
1185 ,080,198,133,044,141,049 
1130, 062, 185,081,198,133,003 
1056,141,132,002,185,082,134 
1198,141, 005,144, 185,083,042 
1198,141,002,144,169,013,215 
132,218, 255,032, 216,255,036 
2876 ,011,199,234, 234,234,036 
1234, 234,016,838, 240,158,214 
3004 ,036,240,156,018 064,078 
3192, 622,018,096, 192,822,120 
:018,128,192,022,800,080,260 
2013, 082,012,086 ,873,067,899 
1032, 869,077,885 076,065,000 





























50802 
50808 
50814 
50828 
50826 
50832 
50838 
50844 
58856 
50856 
50862 
50868 
50874 
50880 
50886 
50892 
50898 
50904 
509108 
50916 
58922 
50928 
50934 
50948 
50946 
50952 
50958 
50964 
50978 
50976 
50982 
50988 
58994 
51000 
51606 
51612 
51018 
51624 
51030 
51036 
51042 
51048 
51054 
51068 
51066 
51072 
51078 
51084 
51096 
51096 
51102 
51168 
51114 
51126 


3084 , 679,082,011, 005,016,135 
1866 ,089,032,070,065,085 ,015 
3083 , 684,079 ,032,073,066,031 
+865,082,082,065,003,008,181 
3012,049,032,085,078,069, 207 
1088 , 080,065,078 , 068,069 , B88 
1068 , 883,016,009, 058,032,066 
1086 ,873,067,032,043,051,252 
1075 ,883,012,009, 051,032,088 
1086 ,073 ,067 ,032,043,056,013 
1075 ,803, 014,010, 052,032,104 





032,086, 1843, 
3050 ,852,075,005,019,017,160 
1869078 , 884,069 ,O82,032,106 
1083 ,069 , 076,069 , 067,084,146 
1073 079,078,058 ,032,000,024 
1000, 080,672,133, 602,152,069 
1072,138,072,165,002,201,110 
1157,240,008,104,178,104,249 
1168,104,076,202,241,056,063 
032,248, 255,192,009, 208,158 
£240,172,093,192,234,202,105 
024,832, 248,255,076, 237,098 
1198,234,234,169,000,133,208 
1043,133, 055,141, 129,002,005 
1141,131,002,168,145,043,138 
1230,043, 032,068, 166,165,218 
1055 ,056,229,043,170,165,238 
1056 , 229,044 ,632, 205,189,025 
1169, 096,160,228 ,032,030,247 
171,126, 169,066,141,820,225 
1003,169,199,141,021,083,080 
1088 ,076,116,164,032,172,198 
:193,141,631,145,141,017,224 
1145,162,128,173,001,220,135 
:208,001,170,138,141,032,002 
£145,173, 025,212,141, 008,622 
144,173,026 ,212,141,009,029 
3144, 169,047,133, 000,169,248 
1053,133,801,076,649,234,138 
1000, 168,003, 200,177,043,181 
$208,251 ,208,200,152,160,007 
7000,145,043,165,044, 200,207 
145,043,133 ,068,166,000,157 
132,059, 162,000, 260,208,127 
1062,230,060,177,059,208,108 
1245, 232, 224,003,208,242,020 
$200,208 ,@02,230,060,132,216 
045,164, 060,132,046 ,096,189 
1000 , 480,040,006 000,000,164 
1000 , 888 , 008 , 860 ,000,008,170 
2255,013,813,013,013,013,240 









Printer Wedge 


(Article on page 80.) 


Program 1: Printer Wedge— 
Main Program 


10 BS=1358:S0=160:S1=32:D0=209 
:D1=81:M=1:MF(@)=1:FORJ=1TO 
6 :M=M*2:MF(J)=M:NEXT: rem 11 
PRINTCHRS (147)CHRS(5)" 
{3 SPACES)PRINTER WEDGE CHA 
RACTER DESIGNER" trem 22 
PRINTCHRS$(17)"MOVE WITH CUR 
SOR KEYS" rem 123 
PRINT"PLACE DOT WITH F7":PR 
INT"ERASE DOT WITH F8" 
trem 86 
PRINTCHR$(17)"ASSIGN CHARAC 
TER WITH Fl" rem 245 
FORI=1T05 :PRINTCHRS (17) :NEX 
T:PRINT"ASSIGN CHARACTER ST 
RING WITH F3" trem 191 
PRINT"ACTIVATE WEDGE WITH F 
2a trem 169 
CH=S0 :FORI=6709 : FORJ=0'T06 :G 
OSUB110:AR(I,J)=0:NEXTJ :NEX 
TI trem 50 
I=G :3=@ :CH=S1 :GOSUB116 :GOTO 
140 rrem 234 
108 I=@:J=6:CH=S1:GOSUB116:GOT 
0148 trem 18 


20 


30 
48 


58 
60 


76 
86 


90 








110 
120 


138 
146 


150 
168 
176 
186 
198 
200 
216 
220 
230 
240 
250 


26 


3 


278 


280 
290 
388 
310 
320 
338 
348 
358 
368 
378 
380 
390 
400 
410 


420 


430 
440 


450 


460 
470 
480 
498 


588 


516 
520 


538 







550 


X=BS+I+J* 40 : POKEX , CH: POKEX 
454272,1:RETURN rrem 18 
GETZ$ :IFZ$=""THEN126 
em 123 
em 116 
GOSUB120:DC=0:REM *CHARACT 
ER EDITOR* zrem 156 
IF 2Z$=CHR$ (29) THENDC#1 

trem 193 
IFZ$=CHR§ (157) THENDC=2 

rrem 245 
IFZ$=CHR$ (17) THENDC=3 

trem 194 
IFZ$=CHR$ (145) THENDC=4 

trem 246 
IFDC>OTHENGOSUB370 :GOSUB38 
7) trem 188 
ONDCGOSUB290, 318,330,350 

trem 23 
GOSUB370 : IFDC> GANDLC#SOTHE 
NCH=S1 :GOSUB110 rrem 84 
IEDC>SANDLC=DOTHENCH=D1 :GO 
SUB116 rem 227 
IFZ$=CHR$ (136) THENAR(I,J)= 
1:CH=D1:GOSUB110 :rem 206 
IPZ$=CHR$ (148) THENAR(I,J)= 
@:CH=S1:GOSUB110 :rem 216 
IFZ$=CHRS$ (133) THEN410 

trem 142 
IPZ$=CHRS (137) THENPRINTCHR 
$(147)CHRS$(17)"PLEASE WAIT 
" :GOTO66S srem 117 
IFZ$=CHR$ (134) THENS50 





RETURN 


trem 156 
GOTO140 trem 164 
I=I+1:IFI>9THENI=@ :rem 52 
RETURN trem 115 


I=I-1 :IFI<OTHENI=9 
RETURN 
J=J+1:1FI> 6THENI=9 







RETURN 

J=J-1 :1 F< OTHENI=6 

RETURN 

LC=PEEK ( BS+I+J* 46) : RETURN 
trem 2 

IFLC=S1THENCH=S6  :rem 244 

IFLC=DITHENCH=D6:rem 215 

GOSUB116:RETURN :rem 192 


FORI=6T09:REM *COMPUTE CHA 
RACTER* trem 42 
CL( 1)=128 :FORJ=8T06 :CL(I)= 
CL(I)+AR(1,J) *MP(J) :NEXTI+ 
NEXTI rrem 188 
PRINT"ASSIGN CHARACTER TO 
{SPACE}WHICH KEY?":rem 248 
GOSUB120: Z=ASC(Z$) :B=3000+ 
Z*16:REM *PRINT DATA STATE 
MENTS* trem 207 
PRINTCHRS (147) CHRS (17) CHRS 
(17) CHR$(17)B"DATA"Z" 
(4 SPACES}"; trem 187 
FORI=@T09: IFCL(I)=128ANDCL 
(I+1)=128THEN489  :rem 216 
PRINT", "CL(I)CHR$(157) 7 NE 
XTI rrem 173 
PRINT: FORDX=1TO5 : PRINT3000 
+Z*10+DX :NEXT trem 6 
PRINT"RUN"CHR§ (19); :FORJ=1 
TO3 :PRINTCHRS (17) ; :NEXT 
trem 62 
FORJ=1T014 : PRINTCHRS$ (29); 
NEXT: PRINT", "ICHR$(19) 
trem 176 
IPI>OTHENS 40 trem 164 
PRINTCHRS (19) ; :FORJ=1T03 :P 
RINTCHR$(17);:NEXT:rem 255 
FORJ=1T026 :PRINTCHR$ (32) 72 
rrem 110 


1+1, 13 :NEXT:END 
PRINTCHRS(147)"ENTER CHARA 
CTER STRING": INPUTA$:L=LEN 
(AS) :1FL<1ORL> 39THENS 50 
rem 164 





560 


578 


580 


598 


600 


610 


620 


638 
640 


658 


660 


670 


680 


690 


780 
710 


7208 


738 


740 


758 


768 


778 


780 


840 
850 
860 


870 
880 





PRINT"ASSIGN TO WHICH KEY? 
":GOSUB12@ :DX=6 :Z=ASC(Z$) + 
I=1:B=3000+2Z*10+DX:rem 186 
PRINTCHRS (147) CHR$(17)CHRS 
(17)CHR§(17)B"DATA"Z" 
{4 SPACES),15,17"; :LX=2 
trem 49 
PRINT", "ASC(MID$(A$,I,1))C 
HR$(157);:LX=LX+1:1=1+1 
trem 242 
IFLX> 9ANDI <=LTHENLX=0 : DX=D 
X+1 :B=3000+2* 10+DX :GOSUB65 


@ trem 28 
IFI<=LTHENS8O trem 255 
PRINT: FORDX=DX+1T05 : PRINTS 
000+2*10+DX:NEXT trem 200 


PRINT"RUN"CHR$ (19); :FORJ=1 
TO3 :PRINTCHR$ (17); :NEXT 

trem 57 
FORJ=1T014 :PRINTCHRS (29); + 
NEXT:PRINT","L+2  :rem 88 
PRINTCHRS (19) : POKE198 ,9:FO 
RI=6TOB :POKE631+1,13:NEXT: 
END rrem 150 
PRINTCHRS (13) B"DATA"ASC (MI 
DS$(A$,I,1) )CHR$(157);1LX=L 
X+L:I=I+1:RETURN :rem 240 
FORI=573441T057452:REM POKE 
HI CODE trem 179 
READA:POKEI ,A:NEXT: rem 146 
PRINTCHRS(147)"{2 SPACES} 
HERE SHOULD PWEDGE BE LOCA 
TED?" rem 37 
PRINTCHRS(17)"854 
(3 SPACES}= CASSETTE BUFFE 
R" rrem 30 
PRINT"679(3 SPACES)= UNUSE 
D RAM (MAYBE)" rrem 190 
PRINT"49152 = RESERVED FOR 
ML PROGRAMS" rrem 246 
PRINTCHRS (17) "LOCATION 
{3 SPACES} 854"CHR$(157)CHR 
$(157) CHRS (157) CHR$ (157) CH 
R§(157)7 trem 4 
INPUTBA: FORI=BATOBA+59: REA 
DA:POKEL,A:NEXT. rem 197 
IFBA=85 4 THENB30 rem 85 
P=BA+60 :GOSUB990 : POKEBAt10 
Lt POKEBA+11,H: POKEBA+49 , L 
:POKEBA+50 , H rrem 98 
P=BA+61 :GOSUB990 : POKEBA+13 
,L: POKEBA+14 , Hs POKEBA+52, L 
OKEBA+53 , H rrem 103 
P=BA+62 :GOSUB990 : POKEBAt1, 
L: POKEBA+2 , Ht POKEBA+55 , LP 
OKEBA+56,H rem 9 
POKES7354, Li POKES 7355 , Hs PO 
KES7449,L:POKE57450,H 

rrem 4 
P=BA+64 :GOSUB990 : POKEBA+39 
Lt POKEBA+40 ,H POKE57409 ,L 
:POKE57410,H rem 83 
POKE57425 , Lt POKE57426 ,H: PO 
KE57437, Lt POKES 7438, H 


trem 254 
POKES 7443, L: POKES 7444 ,H 
trem 44 


P=BA+25 :GOSUB996 : POKES7395 
1 L POKES 7396 ,H trem 113 
P=BA:GOSUB99@ : POKE806 , L: PO 


KE8O7 ,H trem 2 
REM POKE CHARACTER DATA 
rrem 86 
1=57601 :CT=0:Z=1+256 
trem 70 


READC : [FC=0THENPOKEZ-257,C 
T: POKEZ+255 ,0 :GOTO91G 


rrem 175 
READL: IF(L+1+3) >=ZTHENB9O 
trem 228 
POKEI ,C:POKEI+1, L:FORK=1TO 





L:READA: POKEI+1+K,A:NEXT: 1 
=I+L+2 :CT=CT+1 :GOTIB60 
trem 198 





898 POKEZ-257,CT:CT= 
256 :POKEI ,C:POKEI+1,L, 





rISZ:Z51+ 


trem 154 


900 FORK=1TOL:READA:POKEI+1+K, 


A:NEXT:I1=I+L+2 :GOTO860 


rem 23 


910 PRINTCHRS$(147)"PWEDGE IS N 


OW INS'TALLED 


trem 115 





920 PRINTCHRS$(17)"DO YOU WANT 


(SPACEJA PRINTER TEST?" 


trem 212 


938 GOSUB120:IFZ$<>"Y"THENEND 


trem 19 


948 OPEN4,4,7:PRINT#4, "THE QUI 
CK BROWN FOX JUMPED OVER T 


HE LAZY DoG." 


trem 81 


958 PORI=33'T064 :PRINT#4 ,CHRS(I 


); sNEXT:PRINT#G 


trem 53 


960 PORI=651T096 :PRINT#4 ,CHR$(I 


)¢ :NEXT:PRINT#4 


trem 64 


976 FORI=19370218 :PRINT#4 ,CHRS$ 


988 END 


(I 





NEXT: PRINT#4 : CLOSE4 
trem 131 
trem 120 


996 H=INT(P/256) :L=P-H*256:RET 
URN 


1000 
1910 


1620 
1030 
16408 
1650 
1060 
1076 
1686 
1696 
1100 
11186 


1206 
1216 


1226 
1230 
1248 
1250 


1260 


16608 DATA 6 


trem 232 
REM *HI CODE* trem 165 
DATA 172,0,225,192,0,240, 
32,162,1,173 trem 247 
DATA 148,3,221,0,225,248, 
36,232,138,24 trem 47 
DATA 125,0,225,176,232,13 
6,208,237,238,2 :rem 153 
DATA 224,238,14,224,238,2 
2,224,208,217,169 :rem 10 
DATA 225,141,2,224,141,14 
7224,141,22,224 srem 138 
DATA 76,111,3,173,2,224,1 
41,70,224,141 trem 48 
DATA 79,224,169,8,141,150 
13, 232,189,8 rem 22 
DATA 225,141,169, 224,168, 
1,232,189,6,225 :rem 154 
DATA 153,156,3,232,200,20 
6,109,224,208,243:rem 248 
DATA 169,128,153,150,3,20 
8,169,15,153,150 :rem 204 
DATA 3,208,169,17,141,148 
13,208,186 trem 169 
REM *LO CODE* trem 177 
DATA 141,148,3,165,154,20 
1,4,208, 45,142 trem 103 
DATA 146,3,140,147,3,120, 
165,1,41,253 trem 252 
DATA 133,1,76,0,224,165,1 
19,2,133 trem 56 
DATA 1,88,192,0,240,12,16 
2,8,189,150 trem 212 
DATA 3,32,202,241,232,136 
1208,246,174,146 :rem 267 
DATA 3,172,147,3,173,148, 
3, 76,202,241 trem 14 
trem 59 





Program 2: Character Set 1 


2999 


3340 
37108 
3808 


REM *NON PROPORTIONAL SPA 
CED- G, P AND Q MODIFIED* 

trem 174 
DATA 34,5,128,135,128,135 
+128,71,5,136,212 trem 7 
DATA 212,212,184,80,5,252 
1148,148,148,136 :rem 223 
DATA 81,5,184,196,212,164 
1216 trem 145 


Program 3: Character Set 2 


3000 


3010 
30208 


COMPUTE!'s Gazette September 1985 


REM *PROPORTIONAL SPACED 
{SPACE}CHARACTERS WITHOUT 
DESCENDERS* trem 72 
DATA34,4,128,135,128,135, 
39,3,132,130 rrem 54 
DATA129,66,4,255,196,196, 
184,67,4,184 rrem 94 





105, 








30638 
3046 
3050 
30608 
3670 
3688 
3098 
31008 
3116 
3120 
3130 
3146 
3150 


DATA196,196,196,68,4,184, 
196,196,255,69 _:rem 214 
DATA4,184,212,212,152,71, 
5,136,212,212 rrem 97 
DATA212,184,72,4,255,136, 
132, 248,73,3 trem 68 
DATAL96, 253,192, 74,4, 160, 
192,192,189,75 rem 193 
DATA4, 255,144, 168,196, 76, 
3,129,255,192 rrem 140 
DATA77,7,252,132,132,184, 
132,132,248,79 rem 178 
DATA4, 184,196,196,184,80, 
5,252,148,148 rrem 144 
DATA148, 136,81,5,184,196, 
212,164,220,82  :rem 170 
DATA4, 252,136, 132,132,86, 
5,156,160,192 trem 112 
DATA160,156,87,7,188,192, 
192,184,192,192 :rem 243 
DATA252, 89,4, 204,208,208, 
188,201,3,193 trem 121 
DATA255,193,205,7,255,130 
+132,152,132,130 :rem 253 
DATA255,215,7,255, 168,144 
1140,144,160,255 — :rem 7 


Program 4: Character Set 3 


3888 


3016 
3020 
3030 
3848 
30508 
3668 
3078 
3080 
3090 
3188 
3110 
3120 
3130 
3146 
3150 
3160 
3170 
3188 
3198 
3200 
3210 
3220 
3230 
3240 
3250 


3260 


REM *PROPORTIONAL SPACED 

(SPACE}CHARACTERS WITH DE 
SCENDERS* trem 86 
DATA17,5,129,133,148, 208, 
192,33,1,175 trem 65 
DATA34,3,135,128,135,37,6 
163,147,136 trem 66 
DATA132,178,177,39,3,132, 
130,129,48,3 trem 61 
DATA146,146,161,41,3,161, 
146,140,44,2 trem 47 
DATA192,176,46,2,176,176, 
47,6,160,144 trem 81 
DATA136,132,130,129,48,4, 
158,169,165,158 :rem 231 
DATA49 ,3,162,191,166,50,4 
+162,177,169 trem 76 
DATA166,51,4,146,161,165, 
154,52,4,146 trem 65 
DATA138,137,191,53,4,167, 
165,165,153,54 _:rem 184 
DATA4, 158,169, 169,144,55, 
4,177,137,133 trem 132 
DATA131,56,4,154,165,165, 
154,57,4,134 trem 67 
DATA169, 169,158,58,1,148, 
59,2,192,180 trem 90 
DATAGO, 4,136,148, 162,162, 
61,4,148,148 trem 69 
DATA148,148,62,4, 162,162, 
148,136,63,5 srem 75 
DATA136,129,217,133,130,6 
5,5,152,164,164 :rem 210 
DATA156,166,66,4,191,164, 
164,152,67,4 trem 77 
DATA152, 164,164, 164,68,4, 
152,164,164,191 :rem 229 
DATAG9,5,152,172,172,172, 
136,78,4,196 trem 75 
DATA137,129,130,71,4,136, 
212,212,184,72 trem 164 
DATA4,191,132,132,184,73, 
2,189,166,74 trem 67 
DATA4, 160,192,192,189,75, 
4,191,136,148 trem 131 
DATA160,76,3,129,191, 160, 
77,7,188,132 trem 78 
DATA132,184,132,132,184,7 
8,5,132,184,132 trem 215 
DATA132,184,79,5,152, 164, 
164,164,152,80 :rem 176 
DATA4, 252,148,148,136,81, 
5,136,148,148 trem 131 
DATA248,192,82,4, 188,136, 
132,132,83,4 trem 79 
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3270 
3286 
3290 
3308 
33108 
3326 
33308 
3340 
3358 
3360 
3378 
3386 
3398 
3400 
3418 
3420 
34368 
3446 
3458 
3460 
3476 
3480 
3490 


DATA200, 212,212, 168,84,3, 
132,196,164,85 _:rem 156 
DATAS , 156,168, 168,156,160 
186,5,140,144 trem 118 
DATA166,144,148,87,7,188, 
166,166,156,160 :rem 225 
DATA160,156,88,5,164,148, 
136,148,164,89 — :rem 191 
DATA4, 140, 208, 208,188,908, 
4,164,180,172 trem 118 
DATA164,193,5,156, 162,161 
1159,168,194,4 rem 176 
DATA191, 165,165, 186,195,4 
+156,162,161,161 :rem 25 
DATA196,5,191, 161,161,162 
+156,197,4,191  :rem 181 
DATA165,165,161,198,4,191 
133,133,129,199  :rem 31 
DATAS, 156,162,169, 169,144 
+208,4,191,132  :rem 172 
DATA132,191,201,3,161,191 
1161,202,4,144 — :rem 150 
DATA166, 161,159, 203,4,191 
+132,138,177,204 :rem 13 
DATA4, 191, 160, 168,168,205 
+7,191,129,129 — :rem 170 
DATA142,129,129,196,206,5 
+129,190,129,129 :rem 17 
DATA196, 207, 4,158,161, 161 
158,208,4,191 :rem 178 
DATA137,137,134,209,5,156 
+162,169,145,174 
DATA210,5,191,137, 
1166,211,4,162  :rem 151 
DATA165,165,152,212,5,129 
+129,191,129,129 rem 22 
DATA213,5,159, 168, 166,159 
1160,214,5,143  :rem 164 
DATA144, 166,144,143, 215,7 
159,160,160,156 :rem 12 
DATA16@,168,191,216,5,177 
+138,132,138,177  :rem 23 
DATA217,5,129,130,188,130 
+129,218,5,161 :rem 173 
DATA177, 169,165,163 
. trem 227 








Program 5: Graphics To Text 
Conversion 


3880 


3016 
3026 
3030 
3848 
3058 
3060 
30678 
3688 
3098 
3168 
3118 
3126 
31368 
3148 
3158 
3166 


REM *CHARACTER STRINGS FO 
R CONVERTING GRAPHICS SYM 
BOLS TO TEXT* trem 250 
REM *WHEN PRINTING A LIST 
ED FILE* trem 191 
DATAS,7,15,17,91,87,72,84 
493,17 trem 39 
DATAB,15,17,91,68,79,87,7 
8,93,18 trem 189 
DATA7,15,17,91,82,86,83,9 
3,19,8 trem 45 
DATA15,17,91,72,79,77,69, 
93,28,7 trem 105 
DATA15,17,91,82,69,68,93, 
29,9,15 trem 100 
DATA17,91,82,73,71,72,84, 
93,30,7 trem 89 
DATA15,17,91,71,82,78,93, 
31,7,15 trem 87 
DATA17,91,66,76,85,93,129 
+7,15,17 trem 151 
DATA91 , 68, 49,62,93,133,6, 
15,17,91 trem 128 
DATA76, 49,93,134,6,15,17, 
91,70,51 trem 126 
DATA93,135,6,15,17,91,70, 
53,93,136 trem 180 
DATA6,15,17,91,76,55,93,1 
37,6,15 trem 79 
DATA17,91,78,56,93,138,6, 
15,17,91 trem 138 
DATA76 ,52,93,139,6,15,17, 
91,78,54 trem 132 
DATA93,146,6,15,17,91,70, 








3170 
3188 
3198 
3200 
3218 
3228 


3230 


3248 
3258 
3260 
3270 
3280 
3296 
33088 


56,93,144 trem 182 
DATA7,15,17,91,66,76,75,9 
3,145,6 rem 97 
DATA15, 17,91,85,88,93,146 
715,17 rem 139 
DATA91, 79, 70,70,93,147,7, 
15,17,91 rem 146 
DATAG7 , 76 ,82,93,149,7,15, 
17,91,68 trem 142 
DATAS,62,93,150,7,15,17, 
91,60,51 rem 118 
DATAG62,93,151,7,15,17,91, 
60,52,62 rem 124 
DATA93,152,7,15,17,91,68, 
53,62,93 rem 131 
DATA153,7,15,17/91,60,54, 
62,93,154 trem 180 
DATA7,15,17,91,68,55,62,9 
3,155,7 trem 85 
DATAL5,17, 91,60, 56,62,93, 
156,7,15 trem 135 
DATAL7,91,80,85,82,93,157 
18,15,17 rem 146 
DATA91, 76,69, 70, 84,93, 158 
17415517 rem 155 
DATA91,89,69,76,93,159,7, 
15,17,91 trem 165 
DATA67,89,78,93 trem 29 


MLX 


(Article on page 89.) 


MLX: VIC Version 
16 REM LINES CHANGED FROM VIC 


( 
168 
101 
118 
120 


130 


140 
200 


216 


220 
225 
238 


240 
250 
260 
300 
310 


315 


SPACE}MLX VERSION 2.08 ARE 


581,582,765 rem 166 
PRINT" {CLR} (PUR}";CHRS$(142 
) ;CHRS (8); rrem 181 
POKE 788,194:REM DISABLE R 
UN/STOP trem 174 
PRINT" {RVS}(14 SPACES)" 
trem 117 


PRINT" (RVS} (RIGHT) (OFF) 
B*3£(RVS) (RIGHT) {RIGHT} 
(2 SPACES) £*3(OFF] §*3£ 
{Rvs}£(Rvs} " rem 191 
PRINT™(RVS} (RIGHT} G3 
{RIGHT} {2 RIGHT) {oFF)£ 
(rvs)£k*3(OPF)E*3(RVS} * 

trem 232 
PRINT"(RVS](14 SPACES)" 

trem 120 
PRINT" (2 DOWN) ( PUR) {BLK} MA 
CHINE LANGUAGE": PRINT"EDIT 
OR VER 2.62{5 DOWN)" 

trem 192 
PRINT" (BLK} (3 UP}STARTING 
(SPACE }ADDRESS": INPUTS: F=1 
~FrC$=CHRS(31+119*F) 

trem 97 
IFS<256ORS> 32767 THENGOSUB3 
990 :GOTO218 rem 2 
PRINTsPRINT: PRINT: PRINT 

trem 123 
PRINT" (BLK)(3 UPJENDING AD 
DRESS": INPUTE: F=1-P:C$=CHR 


$(314119*F) trem 158 
IFE<256ORE> 32767 THENGOSUB3 
980 :GoTO230 trem 234 


IFE<STHENPRINTCS ;"(RVS)END 
ING < START{2 SPACES)":GOS 
UB1080:GOTO 236 :rem 176 
PRINT:PRINT:PRINT :rem 179 
PRINT" [CLR} IRS (14) :AD=S 
rrem 56 
A=1:PRINTRIGHTS ("0000"+MID 
S(STRS(AD),2),5);"2"7 
trem 33 
rrem 33 





FOR J=A TO 6 








3208 
398 


400 
410 


415 


417 
420 


430 


440 


450 


455 
457 
460 
478 
480 
498 
588 


51 


8 


511 
515 
520 


538 
548 


558 
560 
578 
580 
sal 


582 


583 


584 
585 


598 


600 
618 


620 
630 


640 
650 


GOSUB570 : I FN=-1 THENS=J+N:G 
070320 zrem 228 
IFN=-211THEN 716  :rem 62 
IFN=-204THEN 799 :rem 64 
IFN=-206THENPRINT : INPUT” 
Dove ENAER NEW ADDRESS";Z 
trem 44 
Lew=-206THENIE22 ¢SORZZ> ETH 
ENPRINT"{RVSJOUT OF RANGE" 
:GOSUB1000 :GOTO410:rem 225 
IFN=-206THENAD=2Z2 : PRINT :GO 
T0316 trem 238 
IF Né>-196 THEN 488 
rem 
PRINT: INPUT" DISPLAY :FRO! 
F:PRINT, "TO"; :INPUTT 
trem 234 
IFF<SORF> EORT¢SORT> ETHENPR 
INT"AT LEAST";S;"(LEFT), N 
OT MORE THAN"; £:GOT0430 
rem 159 
FORI=FTOTSTEP6 : PRINT: PRINT 
RIGHTS ( "6000" +MID$(STR$(1I) 
02),5)2"3"4 trem 38 
FORK=@T05 :N=PEEK( I+K) : 1FK= 
3THENPRINTSPC(18); :rem 34 
PRINTRIGHTS (" makenrns (etRe 
(N),2),3)3")" zrem 157 
GETAS : IFA$> “PHENP RINT: PRE 
NT:GOTO310 trem 25 
NEXTK : PRINTCHRS ( 20) ; NEXTI 
:PRINT:PRINT:GOTO310 








3 











rrem 58 

IFN<@ THEN PRINT:GOTO310 
trem 168 
A(J)=N:NEXTJ rrem 199 


CKSUM=AD-INT(AD/256)*256:F 
ORI=1T06 : CKSUM=(CKSUM+A(I) 
)AND255 :NEXT trem 200 
PRINTCHRS (18); :GOSUB570:PR 
INTCHRS (146) ; zrem 94 





IFN=-1 THENA=6 :GOTO315 
rem 254 

ERIN CBS 20) : IFN=CKSUMTHE 
trem 122 


PRINT: BRINE" LINE ENTERED W 
RONG": PRINT "RE-ENTER": PRIN 


T :GOSUB1660 :GOTO316 
rem 129 
GOsUB2000 trem 218 


FORI=1T06 :POKEAD+I-1,A(I): 
NEXT em 86 
AD=AD+6:IF AD<E THEN 310 





trem 212 
GOTO 716 trem 108 
N=O:Z=0 trem 88 
PRINT"§+3"; trem 79 
GETAS$ :IFAS=""THEN5S81 

trem 95 


AVs-(AS="M")-2*(AS=",")-3* 
(AS=".")~4* (AS="3")—-5* (AS= 
"K")-6* (AS="L") trem 41 
AV=AV-7* (AS="U" )~8* (AS="I" 
)-9* (A$="0") : 1FAS="H"THENA 


Sato" trem 134 
IFAV? OTHENAS=CHRS ( 48+AV) 
:rem 134 


PRINTCHRS (26); :ASASC(A$) :I 
FA=130RA=440RA=32THEN670 


trem 229 
IFA? 128THENN=-A: RETURN 

trem 137 
IFA¢>20 THEN 630  :rem 10 


PRINTCHRS (146) ; :GOSUB690:1 
FI=1ANDT=44THENN=-1 :PRINT" 
(LEFT) (LEFT)";:GoT0696 

trem 155 
GOTO570 trem 109 
IFA<¢480RA> 57 THENS80 

trem 165 
PRINTAS; :N=N*10+A-48 

trem 106 
IFN>255 THEN A=20:GOSUB1OG 





660 
670 


680 
690 


692 
695 
700 
110 


720 


7308 


740 
758 


760 


762 


763 


765 


766 


778 
775 
788 


781 


782 
798 


800 


810 


820 
830 


840 


84 


845 


850 
860 


865 
870 


880 


1068 REM BUZZER 





8:GOTO6GO 
=Z+1 :1FZ<3THENS8O 





PRINT", "; :RETURN 
S8=PEEK ( 209) +256* PEEK(210) 
+PEEK(211) trem 149 
FORI=1T03 :T=PEEK(S%-I) 
trem 68 
IPT<> 44ANDT<> S8THENPOKES8- 
I,32:NEXT trem 205 
PRINTLEFTS("{3 LEFT}",I-1) 
ETURN trem 7 
RINT" (CLR) (RVS}*** SAVE * 
**{3 DOWN)" trem 236 
FS="": INPUT" (DOWN) FILENAM 
E"; PS tI FF$=""THEN310 
trem 128 
PRINT:PRINT"(2 DOWN) (RVS)T 
(OFFJAPE oR (RVS)D(OFF}ISK 
: (T/D)" rrem 228 
GETA$: IFA$<>"T"ANDAS$<>"D"T. 
HEN7408 trem 36 
DV=1-7* (AS="D") : IFDV=BTHEN 
FS="01"+F$ :OPEN15,8,15,"S" 
+F$:CLOSELS rem 212 
TS=P$ 2ZK=PEEK (53) +256* PEEK 
eas -LEN(T$) : POKE782, 2K/25 
trem 3 
FORE781,, ZK-PEEK(782)*256:P 
OKE780 , LEN( TS) :SYS65469 
rrem 109 
POKE78@ , 1: POKE781, DV: POKE7 
82,1:SYS65466 trem 69 
K=S:POKE254,K/256:POKE253, 
K-PEEK( 254) *256 : POKE78@ , 25 
3 trem 17 
K=E+1 :POKE782 ,K/256 : POKE78 
1, K-PEEK( 782)*256 :SYS65496 
rem 235 
IF(PEEK( 783)AND1)OR(191AND 
ST) THEN78O 
PRINT" {DOWN } DONE. 














PRINT" {DOWNJERROR ON SAVE. 
{2 SPACES]TRY AGAIN.":IFDV 
=1THEN720 rem 171 
OPEN15,8,15:INPUT#15,E1$,£ 
2$ :PRINTELS ; E2$ :CLOSE15 :GO 
10720 trem 103 
GOTO720 trem 115 
PRINT" {CLR} (RVS}*** LOAD * 
**(2 DOWN)" trem 212 
F$="":INPUT"(2 DOWN) PILEN 
AME"; F$ :1FF$=""THEN310 
rrem 144 
PRINT: PRINT"({2 DOWN) (RVS)T 
(OPFJAPE OR (RVS}D{OFF]ISK 
: (7/D)" srem 227 
GETA$: IFA$<>"T"ANDAS<>"D"T 
HENB20 trem 34 
DV=1-7* (A$="D") s IFDV=BTHEN 
PS="O:"+FS rem 157 
TS=FS t ZK=PEEK( 53)+256*PEEK 
(54)-LEN(TS$) :POKE782,2K/25 
6 trem 2 
POKE781, 2K-PEEK ( 782) *256:P 
OKE780, LEN(TS) :SYS65469 
:rem 107 
POKE78@ ,1:POKE781 , DV: POKE7 
82,1:SYS65466 rem 70 
POKE780,0:SYS65493 :rem 11 
IF (PEEK( 783) AND1)OR(191AND 
ST) THEN8S70 trem 111 
PRINT" (DOWN } DONE. ":GOTO310 
trem 96 
PRINT" (DOWNJERROR ON LOAD. 
{2 SPACES)TRY AGAIN. (Down) 
“:IFDV=1THEN8G8 = :rem 172 
OPEN15,8,15:INPUT#15,E1$,E 
2$ :PRINTE1S$ ; E2$ :CLOSE15 :GO 
T0808 trem 102 
trem 135 








1601 


1062 
1063 


2008 
2001 
2002 


3888 


MLX: 64 Version 


10 REM LINES CHANGED FROM MLX 
{SPACE}VERSION 2.60 ARE 750 
1765,778 AND 860 

2@ REM LINE CHANGED FROM MLX V 
ERSION 2.61 IS 360 :rem 147 


100 


101 
110 
120 


138 


140 


200 


210 


215 
220 


225 
230 


248 


2508 


POKE36878, 15 :POKE36874 , 19 
C) rem 206 
FORW=1T030@ :NEXTW: rem 117 
POKE36878 ,@:POKE36874 ,O:R 
ETURN rem 74 
REM BELL SOUND rem 78 
FORW=15TOOSTEP~1 :POKE3687 
8, W:POKE36876 , 240 :NEXTW 

trem 22 
POKE36876 ,8:RETURN 

trem 119 
PRINTC$;"{RVS}NOT ZERO PA 
GE OR ROM":GOTO1000 

trem 89 


trem 50 





PRINT" (CLR} R63" ;CHR$ (142); 
CHR$ (8); 1 POKE53281,1:POKE5 


3280,1 trem 67 
POKE 788,52:REM DISABLE RU 
N/STOP rrem 119 
PRINT" {RVS}{39 SPACES)"; 
trem 176 


PRINT" ({RVS}(14 SPACES} 
{RIGHT} (OFF) £*3£{RVS} 
{RIGHT} (RIGHT}T2 SPACES) 
aE ied 
{14 spaces)”, trem 256 
PRINT" (RVS) (14 SPACES} 
{RIGHT} &G3{RIGHT) 
(2 RIGHT) (OFF)£{(RVS)£ 
&*3 (OFF }E*3(RVST 
{14 SPACES}"; trem 35 
PRINT" {RVS}{41 SPACES}" 
rem 126 
PRINT" (2 DOWN} [PUR] {BLK} M 
ACHINE LANGUAGE EDITOR VER 
SION 2.02{5 DOWN)":rem 238 
PRINT"§59(2 UP]STARTING AD 
DRESS?(8 SPACES){9 LEFT)"; 
rem 143 
INPUTS :Pel-FsC§eCHR§(31+11 
F) rrem 166 
TrS¢2560R(S> 40960ANDSC491¢ 
2) ORS> 53247 THENGOSUB3600 :G 
oT0216 trem 235 
PRINT: PRINT: PRINT trem 180 
PRINT" E59(2 UPJENDING ADDR 
ESS?({8 SPACES}(9 LEFT)"; :1 
NPUTE: P=1-F:C$=CHR§ (31+119 
*P) rrem 28 
IFE<2560R(£>4096GANDE<4915 
2) ORE> 53247 THENGOSUB3000 :G 
oT0230 trem 183 
IPE<STHENPRINTCS ; "{RVS] END 
ING < START(2 SPACES}":GOS 
UB1@00:GOTO 236 :rem 176 
PRINT: PRINT: PRINT trem 179 
PRINT" {CLR)";CHR$(14) :AD=S 
trem 56 
A=1:PRINTRIGHTS ("0000"+MID 
S$(STRS(AD),2),5)7"2"7 


en 33 
FORJ=ATOG rrem 33 
GOSUB570 : IFN©=1 THEND=J+NiG 
T0326 trem 228 
IFN=-211THEN 716 trem 62 
IFN=-204THEN 798 :rem 64 








IFN=-206THENP RINT : INPU' 
{DOWNJENTER NEW ADDRESS"; Z 
z trem 44 
IFN=-206THENIFZZ <SORZZ> ETH 
ENPRINT"{RVSJOUT OF RANGE" 
:GOSUB1006 :GOTO410:rem 225 
IFN=-206THENAD=Z2 : PRINT :GO 
70310 trem 238 
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420 IF N<>-196 THEN 480 **{3 DOWN)" prem 236 POKES4278, 247 srem 152 
3 | 715 PRINT"{2 DoWN}(PRESS (RVS} | 2002 POKE 54276,17:POKE5S4273,4 





















































430 PRINT: INPUT RETURN{OFF] ALONE TO CANCE 8: POKE54272,0 trem 86 
F:PRINT, "TO L_ SAVE) { Down}" rrem 186 | 2683 FORT=1T0100:NEXT:POKE5427 
= trem 234 728 F$="":INPUT" (DOWN) FILENAM 6,16:RETURN trem 57 
440 IFF<SORF> EORT<SORT> ETHENPR E";P$:IFF$=""THENPRINT:PRI | 3000 PRINTC$;"{RVS]NOT ZERO PA 
INT"AT LEAST";S;"(LEFT}, N NT:GOTO310 trem 71 GE OR ROM":GOTO1800 
(01 E:GOTO430 730 PRINT:PRINT"(2 DOWN) (RVS)T trem 89 
trem 159 {OFFJAPE oR (RVS}D{OFF} ISK 
450 PORI=FTOTSTEPG :PRINT:PRINT + (t/D)" trem 228 
er crng (cepa turns (anne (a), 740 GETAS:IPA$<>"T"ANDAS<>"D"T 
2), 5) 502" t rem HEN740 rem 36 ° ° ° 
451 FORK=0T05 IGPEEK (T4K) sPRIN 758 DV=1-7*(A$="D") :IFDV=8THEN This Publication 
TRIGHTS ( "OO" +MIDS$(STRS(N), FP$="@6:"+P$ :OPEN15,8,15,"S" ° * ° 
2),3)2", ixent oo) || Mae See scLOs Se eseetoae is available in 
468 GETAS :IFAS$>""THENPRINT :P 60 TS=F$ :ZK=PEEK(53)+256*PEEK . 
NT:GOTO310 trem 25 (34)= LEN(T$) : POKE782, 2K/25 Microform. 
470 NEXTK:PRINTCHRS (20) ; :NEXTI trem 3 
PRINT: PRINT:GOTO310 762 POKE76)/2K-PEEK(762)¢256+9 
zrem 50 OKE78@ , LEN( TS) :SYS65469 
480 IFN<® THEN PRINT:GOTO310 rrem 109 
rem 168 | 763 POKE780,1:POKE781 ,DV:POKE7 
498 A(J)=N;NEXTS rrem 199 82,1:SYS65466 trem 69 
500 CKSUM=AD-INT(AD/256)*256:F | 765 K=S:POKE254,K/256:POKE253, 
ORT=1T06 : CKSUM= (CKSUM+A(I) K-PEEK(254) #256 :POKE780, 2¢ 
)AND255 :NEXT rrem 200 3 trem 17 
510 PRINTCHRS$(18);:GOSUB57@:PR 766 K=E+1:POKE782,K/256 :POKE78 
INTCHR$ (146); trem 94 1,K=PEEK( 782) * 256: SYS65496 
511 IFN=-1THENA=6 :GOTO315 trem 235 
rem 254 | 779 IF(PEEK(783)AND1)OR(191AND 
515 PRINTCHRS (26) : IFN=CKSUMTHE ST) THEN789 trem 111 
N530 trem 122 | 775 PRINT" {DOWN}DONE. {DOWN}":G 
520 PRINT:PRINT"LINE ENTERED W 070310 trem 113 
RONG : RE-ENTER":PRINT:GOS | 799 PRINT" {DOWNJERROR ON SAVE. 
UB1000:GOTO316 rem 176 {2 SPACES)TRY AGAIN. "ZIFDV 
536 GosUB2000 trem 218 =1THEN720 — trem 171 
540 FORI=1T06:POKEAD+I-1,A(I): | 781 opEN15,8,15:INPUT#15,E1$,E 
NEXT: POKE54272,@:POKE54273 2$:PRINTE1$;E2$:CLOSE15:GO 
1O trem 227 T0728 trem 103 
550 AD=AD+6:IF AD<E THEN 310 790 PRINT" {CLR} {RVS}*** LOAD * 
trem 212 **{2 DowN}" trem 212 
568 GOTO 716 zrem 188 | 795 pRINT"{2 DOWN}(PRESS {RVS} 
578 N=O:Z=0 trem 88 RETURN{OFF} ALONE TO CANCE 
580 PRINT"E£3"; trem 81 TL LOAD)" rrem 82 
581 GETAS:IFA$=""THENS81 800 FS="":INPUT"(2 DOWN) FILEN 
trem 95 AME"; F$ :IFF$=""THENPRINT :G 
582 AV=-(AS="M")-2*(AS=",")-3* 0T0318 zrem 144 
(aS=".")-4*(AS="5")-5*(AS= | gig PRINT:PRINT"{2 DOWN} (RVS)T 
"K")-6% (AS="L" trem 41 (oPFJAPE OR ({RVS}D{OFF}ISK 
583 AV=AV-7* (AS="U")-8* (AS="I" : (T/D)" “:rem 227 
)-9*(A$="0") :IPAS="H"THENA | 929 GETAS?IFAS<>"T“ANDAS<>"D"T 
S="o" trem 134 HENS20 trem 34 
584 IFAV>OTHENAS=CHRS(48+AV) 830 DV=1-7* (AS="D") :IFDV=8THEN 
rem 134 FS="0:"+FS zrem 157 
585, PRINTCHR$( 20); :A=ASC(A$) :T 840 TS=F$ :ZK=PEEK(53)+256*PEEK 
PA=130RA=440RA=32THEN6 70 Ga) LEN('T$) : POKE782, 2K/25 
rem 229 trem 2 
598 IFA>128THENN=-A: RETURN B41 POKE781; 2K-PEEK( 782) *256:P 
trem 137 OKE786, LEN(T$) :SYS65469 
608 IFA<>26 THEN 630 :rem 10 rem 107 
610 GOSUB69@:IF EPIIEEES IE eee 845 POKE786,1:POKE781,DV:POKE7 
=-1:PRINT" (OFF) {LEFT 82,1:SYS65466 trem 76 . . 5 . 
(LEFT) "; :G0T0698 em 62 | 850 POKE780,0:SYS65493 :rem 11 University Microfilms 
620 GOTOS70 :rem 109 | 860 IF (PEEK(783)AND1)OR(191AND i 
630 IFA<48ORA> 57 THENSBO ST) THEN870 } trem 111 International 
trem 105 | 865 PRINT" {DOWN} DONE. ":GOTO310 
640 PRINTAS; :N=N*10+A-48 af trem 96 Please send additional information 
trem 106 | 87@ PRINT" {DOWNJERROR ON LOAD. for 
650 IFN>255 THEN A=26:GOSUB100 (2 SPACES}TRY AGAIN. (DOWN) 
@:GOTO68B trem 229 “:IFDV=1THENSGO = :rem 172 Name. 
660 Z=Z+1:1FZ<3THENS8O :rem 71 | gag OPENIS,8,15:INPUT#15,E1$,E ae 
678 IFZ=@THENGOSUB1000 :GOTO570 2$ : PRINTE1S$ ; E2$ :CLOSE15 :GO Institution 
trem 114 TO88S trem 102 “oe 
680 PRINT",";:RETURN :rem 240 | 1999 REM BUZZER trem 135 Sitter 
690 S*=PEEK(209)+256*PEEK(210) | 1601 POKES4296,15:POKE54277,45 City. 
+PEEK(211) trem 149 +POKE54278,165  :rem 207 z 
691 FORI=1T03:T=PEEK(S%-1) 1082 POKE54276,33:POKE 54273,6 Site az i0) 
ee ¥ rem 67 :POKE54272,5 trem 42 
IFT <> 44ANDT<> 5: SHEBEORESE 1883 FORT=1T0260 :NEXT: POKE5427 J eb Ros 
1, 32:NEXT m 205 6,32: POKE54273 , 8 : POKE5427 300 North Zeeb Road 
700 PRINTLEPTS("(3 LEFT)", 1-1) 2,0:RETURN trem 262 Dept. PR. 
RETURN trem 7 | 2000 REM BELL SOUND trem 78 Ann Arbor, Mi. 48106 
710 PRINT" {CLR} (RVS}*** SAVE * | 2661 POKE5S4296,15:POKE54277,0: 
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Call Us For 
FAST DELIVERY ®2s:¢e~ 
and Affordable Prices 


Printers 


Software 


SPRING SPECIAL 


~ SUBLOGIC 
Flight Simulator 
Microprose F-15 Eagle 


MICROLEAGUE 
Baseball-. 


‘Special of the Month 
FLEET SYSTEM 2 


Great Buy $48. 


PROGRAMMING SERIES 
Simon Basic .... 
Togo 


ACCOUNTING 
Home Accountant 
Typing Tutor Ml... 


DATA BASES 
PFS: File 
Super Base 64 


Special of the Month 


The Consultant 
§57 


SPREAD SHEET 
Multiplan... 
Homepak 


Hardware | 


1571 Disk Drive ... *269 
/ 1541 Disk Drive \ 


"37 
"199 
+39 
49.95 
49 


1547 Alignment Kit... 
MPS 802 

1530 Datasette 
Magic Voice Speech 
1011 RS 232 Inter! 


1541 FLASH.. *54.95 
oo ‘. 1702 Monitor 


*189 
ZENITH MONITORS 
122 Amber .. 
123 Green ; 
Special of the Month 
MSD DISK DRIVE 
SD1 Disk Drive ‘224 
SD2 Disk Drive *439 
INDUS GT 
DISK DRIVE 
#229 
COMPUSERVE STARTER 
KIT $21 
GRADUATIOI CIAL 
JUKI 6000 
$199 


CARDCO 5 SLOT 
EXPANDER 
5 


SG-10 :214 


$244 
. $369 
. $329 
- $444 
-§479 
.*579 


Letter Quality Powertype *304 
Gemini 10x Ribbon . "3 
Gemini 15x Ribbon . 





THE NEW 
HOMEWRITER 10 


$209 


NEW LX-80.... 
RX-80 

FX-80. 
RX-100 . 


Okidata 182 
Okidata 192 . 
Okidata 193 .. 
Okidata 92 
Okidata 93 
Okidata 84 
Okidata 92 Ribbon 


0 64 26.95 


Reg. 515% vic 20 $6.99 
Disk Drive. $6.99 


Espon MX 80... $7.99 
Espon MX 80 FT $7.99 
a Okidata 92 .....87.99 


SURGE PROTECTORS 
1 Outlot "4 


SPECIAL 
4 Outlet... *24 
6 Outlet 69 





Epson 80 Ribbon ... *5 

Epson 100 Ribbon . *8 

Homewriter Interface °65 
PROWRITER. 


PANASONIC 


Special Offer 
MW-350 $69 
4K Buffer. 


Digital Devices 


U Print Interface .... 854 
16K Printer Buffer.. S99 
64K Printer Buffer $169 


PRINTER INTERFACES 
Micrografix MW350 “69 
Tymac Connection .. 

Cardco + G Interface ... 
Cardco B Interface 
Grappler CD 3 


Printer Specials 


Ordering & Payment Policy 
Prices reflect a cash discount. For Visa, and Master 
card add 3% Immediate delivery with certified check or wired 
funds. N.J. resident add 6%, Prices subject to change. 
USA SHIPPING 
For shipping and handling add 4% ($4 minimum) Maxell SS/DD. 
Larger shipments require additional charge. C.0.D. add *3.50] Disk Holder (50 


FOR INFORMATION CALL (609) 596-19: 


ORDER TOLL FREE (800) 992-3300 
MCSRULERY Cherry Hill Ni 08034 


Special of the Month 
BULK SS/DD DISK 
10 50 100 
*9.99 %48 °90 


Doodle... 
Print Shop. 
Paper 1000 sheets‘19.95 


Tues., Wed. & Sat. 10-6 














Computer eZ a 


Marketing & Consultants 
SAVE 2 PRINTERS | § 


CARDCO LEGEND 
32k BUFFER (C64) 190," aa 2 
CITIZEN H i 1380 8) jgo,PANASONIC 
wsp.10 2 ; 193 
DIGITAL DEVICES 19}, 
ok BUFFER 3194 Letter 
coe Sar Sheets } 219 : BUFFER Bie But 


: SILVER REED 
PROWRITER 8510AP. TOSHIBA EXP400 
Briones 3 aso F 6 Xbs00 
83108P! 500361 Foner Carnage ' Xb3e0 
ana 7 2 ‘ EXP? 
Eats Fr 2 Image no MICROBITS 
oeoaRe F Metoaitte STAR MICRONICS 
Fah E ce 3 DIABLO CT ratte vitae 
BRR f BROTHER 2 sao 8B 10 

HAL SXUP 5 2 1393-80-18 

Heke ies R16 

HAS 2 15 

BABES 3 ‘338 Boweitype 

ite oe Ete $8 SE:éc.6s mew) 


MONITORS MODEMS 


NOVATION 














AMDEK SAKATA 

300 Green {0004 . cane 3 64) 2995 
mber i 2 ! poet 0 30 Bd Ape. 69 96 

310 Amber 18M e i i 3 3 hy Err ud 98 

Tolor 300 Audio ap Steen tt A EM 5 5 {8 260 ($00 Baud 18 69 

Color 500 Composite F e 

Golor 600 


Ber 198 aby StS oi. ANCHOR 


NEC 5 PRINCETON GRAPHICS 
MAX:12 Amber 89 
HX-12 RGB. a8 


S13 AS 38 DRIVES PRINTER INTERFACE 








7 MSD QRD AXIOM 
PANASONIC : mre so Oa GPC (C64) Parallax (C64) 65 
DT 1300 AG! composite: 82 Dave (C-64) 
CARDCO 


L Giz (C-64) DIGITAL DEVICES 
ave 120 ZENITH B12 Ambe gras ce UPrint © (C64) 49 
BUM 1386 Green S120 13 1 PB cba) 

SYM 13; cowe 'M : 
20M 133 RGB § TYMAC ORANGE MICRO 


2VM 135 Composite " mnnection (C641 Grapplee CD (C64) 79 
2M 136 Hi Res Color elie e : 














TOORDER gis lesa ane spec atin edu le Ne esol 0.0 Der Fes 


shipping on prepaid cash orders within the continenial US Volume discounts 


available PA residents add sales tax APO FPO. and international orders add 
CALL TOLL FREE or send order to 0 . vic ised prices show 4% discount for 


800-233-8760 yee Come vter Selo shipping Ask about UPS Bive and Red label shipping Al merchendse 


ed under manufacturer's warranty Free catalog with order All tems subject 
Customer Service 1-717-327-1825 Jersey Snore PA 17740 


























Lyco 
Computer 


Marketing & Consultants 

























































































[o-—- 
DISKETTES COMMODORE sons CARDCO commdS1(C-64) 
git 189.95 olonial Conquest 
SOFT WARE S| acetate | See enancns 
t ter Ambus 
ENGIIEOK 10) ; - BIS S:siot Hoard\é4)’. 54.00 Field of Fire 2475 
Ash Sis 100, WICO Joysticks GBI2 2'siot Boardl6s) 28.00 fagtuer commend 36.75 
3800 us ° jore Basic Rom 5 mptgru 
Bee 389050 Bat angle. 16.28 Write Now-64 35.00, Mech. niga 36.75 
ELEPHANT (Box 10) 50.2002 Super 3-Way..19.99 Mail. Now-64. 23.00 Market Garden. 29.75 
7 199 y Spell Now-64 29.00 ix Gun Shootout. 24.75 
S80 2 50-0110 IBM-Analog”.29.95 
128 | 80-1090 Apple-Andiog: 2388 | Ble Now, ES Masa A rene 
{a95 72-4545 Trackball 29.95 Calc Now-64 29.00 imperium Galactum. 24.75 
f aes neu al Giigy.B¢o8 |  Garels & Culihroais, 2478 
inter Uiiit 
MAXELL (Box 10) INNOVATIVE CONCEPTS Wihe Now-Vic-20.” 29°98 50 Mission Crush. 24.75 
2 3375 78 | Elipnéile 15 825 CHestrog CLE 
eH tea | Hes 
Peet 
WEBB ATIM (Datalife) (60x10), |) iryemrene so Lockimesee98) I) yes Games o4 22.95 EASTERN HOUSE 
390 2 noe non 1728 | GmmnterSoet 3408 | Rabbi 64 19195 
HES Mon 64 23.95 Rabbit VIC-20 19.95 
NO LABEL DISKETTES COMMODORE Microsott Mutiplan 55.00 | Wels g4 joes 
f sl C-128_ NEW. au Type N Write 19.95 ML. Monitor 64 18.95 
3 p\Bes 1871 Drive “ALL a eiuGrih aaiad ne 
1¢ Diskette Write 1572 Drive CALL une Srepnics, gees 
jee Storage Ca: 1908 Monitor CALL Cell Detense 22.95 
Cigtme waranty fodem Paint Brush 1295 
felme Want G2 depen GALE. | Paet Bs 1282 | BATTERIES INCLUDED 
rv 1 Ci 
MPS80) Printer tow Graphics Basic 27.95 Spell Pak. 3495 
1702 Monitor 199 HES Kit 29.95 ponsttian 59.95 
Simon's Basic 24.75 Millionaire 23.95 ‘aper Clip. 
PRINTING | s:sensierse 475 | Garonn 2495 | mee tk a8 
Super Expander 22.75 HES Writer 64 24.98 Bus Card 129.95 
PAPER Logo 64 49.75 80 Column Board 109.95 
iat 
Easy Cale 34.75 CONTINENTAL 
3000 SHEETS Easy Script. 38,75 fey aCe) Fre 
ei sees 1984 Tax Advantage 35,75 BRODERBUND (C-64 
Mere ag aa SPINNAKER (C-64ROM) Cat Book ot Sotware 1698 Ihe Print Shop.....28.78 
1OOOSHEETLETTER $2195 Grehence ROM 1 a8 Graphics Library ti 19.75 
200 SHEETS LETTER $8.99 Alphabet 200 1778 ADVENTURE Castles bi. Croop 4878 
1SORAGSTATIONARY § $1099 fi i] Con Caves 13 a] Didkey 32.95 Bank St Writer 3275 
MAILING LABELS (tin) $9.95 Dela Drawing 1978 Ultra Disassembler 32.95 Loderunner. Sui 20 2 
14x11 1000 Kids on Keys 16.75 Spelunker 19.75 
FANFOLO. $2475 Kindercomp 1475 Serpent's Star 24.78 
Facemaker 17.75 QR&D Whistler's Brother 18.75 
Fraction Fever. 17.75 Copy Q. 27.95 Raid Bungeling Bay 18.75 
GPC Printer Interface ..65.00 
COMPUTER | McROPROSE (c-s4) suB Losic (c-64 
Kennedy Approach 21.75 EPYX { 32.95 
Crusade in Europe. 24.75 Je HE 207) 
CARE Becision in Desen. 24.75 (C64) " 5 
Solo Flight. 20.75 Fast Load 2675 
Nato Commander. a0 iH Breakdance 23.75 
pittire Ace. Greatest Baseball 24.75 
Bette ee oie. 38g thee PERSONAL PERIPHERALS 
NORTRONICS Felicat Ace” 1875 Si AS Cte Super Sketch 64 32.75 
Printer Utility 18.75 
DISK DRIVE SCARBOROUGH (C-64) 
CLEANER KORA Buld AGEN, 2478 
, ff ster 
with software OAL Improved Mastertype 2375 | PRECISION SOFTWARE 
REG. 49.95 NOW 19.95 Koala Pad 59.95 Mastertype Filer 22.78 Superbase 64 se75 | 
(be 
TO ORDER 
AMERICA’S MAIL ORDER HEADQUARTERS CALL TOLL FREE 


LYCO COMPUTER TOME eae 


WORLD’S LEADER IN SALES & SERVICE Wo. Bor soes! 


Jersey Shore, PA 17740 











CALL TOLL FREE 1-800-631-1003 


END OF 
COMPUTER Su ohh = 


CENTERS EE EED 400 
of AMERICA . = 
MAIL ORDER, LTD. 


Cardco Lars = 
DAISY WHEEL 


Cte Chay er vit $19995 


Built-in Commodore Interface 


PRINTERS 


Gemini SG10 . . . .209% 
| 315 95 


OC in 
Interface _. Call 


JOYSTICKS 


Si 
HUSH BOCD Smale 4 The Boss 12% 
The Bat 


Quieter 
es 3.Way 


Buy 5 Boxes of 
SCOTCH, MAXELL or 
NASHUA and Receive 
FREE... 
DISKETTES YOUR CHOICE 
BMC Color Nasheed Ay SCOTCH DISC DRIVE 
Pans Ce ee : Maxell 1388 S HEAD CLEANER or 
: CARDCO PRINTER 
UTILITY PROGRAM 


fisher-price 
Learning Software 


Spinnaker 


tavoztereo arses 1-O00-631-1003 


OR WRITE: COMPUTER CENTERS OF AMERICA, 81 TERMINAL DRIVE, PLAINVIEW, NY 11803 





DISTRIBUTOR PRICES ARE NOW ACCESSIBLE! 


Se 


h~ LOOK! CCA NOW 
SHARP 2B 

COLOR COMPOSITE | BEULASWA\ M9, ORUSIN/ 3 aN 
MONITOR 13M31U | RCO) Eola oTiSvom eri \Va=ts) 


Emerson 
ADC 





NeW FoR Cx commodore 
ENHANCER 2000 DISC DRIVE = Hog Pickup 516 Tack Poorammabity 


Tont-Loading Disc Tray 


Priced From $ 5 | 5995 


SUMMER | 
SOFTWARE | == ,.MQDEMS, 


SPECIAL! | tl 1660 7995 


Telecommunications Call 











=x commodore 
1702 Monitor 


[Se | WE WOW TE A At AN ATARI proovers: 


ATARI: 520 ST CALL FOR PRICE 
130XE Computer 128K .. . 13995 Caverns of Mars 12.95 Joust 12.95 Music Composer 15,95 
800XL Computer . Prt a jad Centipede 10.95 Jungle Hunt 12.95 Paint 15.95 
1050 Disc Drive ... 14985 Chess 10.95 Logo Kit 25.95 Pengo 12.95 
1027 Letter Quality Defenders 12.95 Mailing List 10.95 Pole Position 12.95 
Dig Dug 12.95 Mickey & Outdoors 17.95 ix 10.95 
1010 Program Donkey Kong 12.95 Micro Soft 18.95  Robotron 
Recorder .... . Donkey Kong Jr 12.95 Millipede 12.95 Space Invaders 
Touch Tablet. . 1 Eastern Front 10.95 Missile Command 10.95 Si 
Family Finance 15.95 Moon Patrol 12.95 
Assem/Editor . First Alphabet 13.95 Pacman 12.95 
Asteroids . Football 10.95 Ms. Pacman 12.95 — Timewise 
Atariwriter . Galaxian 10.95 Music | 15.95 Typo Attack 
Basketball x Home File Mgr. 15.95 Music II . Visicalc 


WE'RE PROUD OF OUR PRICES — SATISFACTION GUARANTEED 

heck, Money Order, MC or VISA accepted / No additional charge for MasterCard and Visa / Call for shipping and 

handling information / NYS residents add applicable sales tax / Prices and availability are subject to change without Centers 

notice / All factory fresh merchandise with manufacturer's warranty. Dealers Welcome. Call for recent price of America 
reductions and new rebate information. Plus shipping and handiing. No returns without return authorization number. Mail Order LTD. 








fi 


THE CMO ADVANTAGE 

THE BEST PRICES! 

Next day shipping on alll in 
stock items, 
Free easy access order 
inquiry. 


Orders from outside 
Pennsylvania and Nevada 
save state sales tax. 


Free technicial support with 
‘our factory trained technical 
staff 


There is no limit and no 
deposit on C.O.D. orders, 


There's no extra charge for 
using your credit card, Your 
card is not charged until we 
ship. 


No waiting period 
cashiers checks. 


We accept purchase orders 
from qualified corporations. 
Subject to approval, 


Educational discounts 
available to qualified 
institutions 


7 FREE CATALOG MEMBERSHIP. 
ORDER LINE 


1-800-233-8950 


In PA 1-800-242-4215 
CUSTOMER SERVICE 
AND 
TECH SUPPORT 


1-717-327-1450 
Dept. A409 
MAILING ADDRESS 


EAST 
Dept. A409, 477 E. Third St. 
Williamsport, PA 17701 


WEST 
Dept. A409, PO. Box 6689 
Stateline, NV 89449 
MEMBER DIRECT MARKETING ASSOCIATION 


CREDIT CARDS 
= 


for 


D) 


DB) 


SHIPPING 
Add 3%, minimum $5.00 ship- 
ping and handling on all orders. 
Larger shipments may require 
additional charges. 

All items subject to availability 
and price change. 

Retumed shipments may be 
subject to a restocking fee, 


CANADIAN ORDERS 
1-800-268-3974 


Ontario/Quebec 


1-800-268-4559 


ther Provinces 


1-416-828-0866 


In Toronto 


TELEX: 06-218960 
2505 Dunwin, Drive 
Mississauga, Ontario 

Canada LSL1T1 


All_ prices shown are for 
U.S.A. orders. 

Call The Canadian Office 
for Canadian prices. 


PRINTERS 


AON 
GP-100 Para 
P-550 Dual Mode 
Elite 5 064. 


SCITIZEN 
MSP-10 (80 Col.). 
MSP.15 (190 Col) 
MSP-20 (80 Col), 
MSP-25 (132 Col) 


C.ITOH 
Prowriter 7500, 
Prowriter 8510. 
Prowriter 1S50P. 
F1O-40P Starwriter 
Prowriter 6510 -NLO. 
F10-55 Printmaster 


EPSON 
FEO, RK10, LX80, 0, 
FRED, 100%, L010 
Homewriter 10. 
NEW! LX-90, S0-2000, DX-10, 
0x20, HS-0, 


alLiKE 
£6000 Letter Qualty 


NEC 


8027 Dot Matrix 


$219.00 
$299.00 
$469.00 
$869.00 
$329.00 
$1049.00 


CALL 
CALL 
CALL 


CALL 


CALL 


OKIDATA 
182, 192, 193 
Ocimate-64 


CALL 
$199.00 


@ OLYMPIA 
Compact 2. 
Compact AO. 
Needlepoint Dot Matrix 


$369.00 
$333.00 
$299.00 


Panasonic. 
Panasonic $199.00 
Panason $273.0 


SRITEMAN: 


C Pius CALL 


@ SilVER-REED 


SB/SD/SG/SR 
Powertype Letter Quality, 
SG-10C (C83 Interface), 


TOSHIBA 


1340 (60 Col) 
P951 (132 Co). 


$599.00 


INTERFACES 


(54 Paral In 
DIGITAL DEVICES 

UPrint 6 
Worange Miro 


Grappler CD Intertace 


$49.99 


$99.99 


TYMAC 
C64 Primer Interface 


Rel 


$69.99 


Super Sketch Graphics Pad 


@hoala 


(064 Koala Pad ROM 


soa.99 


$59.99 





COMMODORE 


Commodore 
128 LCD 
CALL 


C126 Computer... SNEW 
C1571 (Disk Drive for C128)......SNEW 
C1902 (AGB 13" Monitor for C128)SNEW 
C1670 (Modem for €128)...u....SNEW 
SX-64 Portable, CALL 
Commodore 64, $149.00 
CBM 4 Pus. $199.00 
M-B01 Dot Matrix Parail......$189,00 
M602 Serial $219.00 
MCS 803 Dot Matrix. $179.00 
1520 Color Printer/iotter.......8129,00 
1530. Datasette $39.99 
1541 Disk Deve. $199.00 
1660 Auto Modem, $59.99 
1702 Color Monitor $199.00 
OPS Daisywheel Printer $339.00 
Desk Organizer Lock $49.99 
1311 Joystick...each $5.9 
1312 Paddles. $11.99 


80 1 Disk Drive 
SO 2 Disk Drive, 


INDUS 

GT-064 Dive $259.00 
cardco, inc. 

$32.99 

IC Expansion Interface....$32.99 

6 Sot Expansion Intertace. $79.99 

Cassette Interface $23.99 

Parallel Printer Intertace..... 4,99 

Parallel Interface w/Graphics.......$69.99 

Cassette Ded $29.99 


MONITORS 


300 
300 Amber 
Color 300 Composite 


NEC 
8 1260 


8 1201/1208, 
JB 1201/1205, 


$59.99 
(ea) $99.99 
(ea) $99.99 


BTAXAN 
100 12" Green, 
105 12" Amber 


Bas 


ZVM122 Amber, 
ZVM123 Green. 
ZVM130 Color 
ZVM131 Color 


MODEMS 


TELE-LEARNING 
064 300 Baud, $39.99 
ANCHOR 

Signalman Express. $299.00 
LUghtning 2400 Baud $399.00 


mee MICROBITS 


1064 300 Baud AD/AA. $69.99 


SPECIAL 


SPECIAL 
PACKAGE! 


Commodore 64 
Computer 
Commodore 1702 
Color Monitor 


Commodore C803 
Dot Matrix Printer 


$499.00 


SOFTWARE 


PB 


file $59.99 
Report 49,99 


Precision Software 


Superbase 64 w/Audio $54.99 


narenes Yrciunen 
$59.99 
ino 
$39.99 
$69.99 
sie 
$139.99 


Paperclip 
Paperclip w/Spell Pack 
SpelPak 

The Consultant 
Buscard I 

B11. 80 Display. 


Czcommodore 

$24.99 
$1999 
$17.99 
$12.99 


Simons Basic 
Assembler 

Easy Finance 1, th 1V, 
Gort 


InFocom 
Zork |, I 
Deadline 
Witness. 


$27.99 
$23.98 
$23.99 


ELECTRONIC ARTS” 
Music Construction, $19.98 
Pinball Construction, $19.99 
7 Gties of Gold $25.99 
Archon 1) $25.99 


HESWARE 
Games’ 84 
Type 'N’ Weiter 
Super Zaxxon 
Cell Defense 
Hes Writer 64 


$16.93 
$14.99 
$16.99 
$14.9 
$19.99 


Continental Software 
The Mome Accountant $49.99 


Professional Software 


Trivia Fever $23.99 
Fleet System II Word Processor. $59.99 


SPINNAKER 
Snooper Troops 1 or 2 
Dvta Drawing 

Kids on Keys, 


$24.99 
$29.99 
$23.99 


SUB LOGIC 
Flight Simulator 


synapse 


$39.99 


Oreibs. 
Protector 1 
Sentinel 


$16.99 
$16.99 
$16.99 


DISKETTES 
maxell. 


5\4"" MD-1 SS/DD. 


5¥4"" Elephant SS/SD EM... $13.99 
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SUPER F PRINTER PACKAGES For css PRINTERS PRINTER INTERFACES | = PRINTER 
10.8 G-Wiz 282 | Citoh 8510AP ....299 Legend 880 % 
Legend 1080 239 Legend 1080 S BUFFERS 
Citoh 7500AP 219 Panasonic 1090 . 199 Sas SSS 
Epson... Call Panasonic 1091 . 259 Va 
vA Toshiba 1351.,... Call type 309 SLQIC 
Super Printer feats have no extra charg Toshiba 1340 cent U-Print-16K 
added when shipped in Continental USA. Buy the Print Shop for 27. rae with ; Printer Buffer... 79 
= }-Print-32I 
Buy any modem the purchase of any printer. @ U-Print-32K 


Printer Buffer...99 
and get VIP Term| INDUS GT Foc: 239 U-Print-64K 
or Vidtex for Call for Latest Prices on C-64 i Printer Buffer . 109 
26.95 & C-128 Hardware 3 : 


SUPER SPECIALS* 


.+++-49.95 Computer Ambush-D . 37.95 Star Rank Boxin 











Voice Messenger.....39.95 Carrier Force-D. 95 


: Reach For The Stars-D29.95  Kampgruppe-D.......37.95  Superbase 64 
: “EFFECTIVE NOW THRU SEPTEMBER 31, 1985 _ 


Oo M _M 0 


t Moscow-D 
Mach VC 


BATTERES| INCLUDED 


Eidelon-D 


FIRST STAR 





Compt as 


couMooone iP ee To Order Call Toll Free 


800. 908- 003 


For Technical Info, Order SIMON ‘AND. 
Inquiries, or for Wisc. Orders SCHUSTER 


414-351-2007 


ORDERING INFORMATION: 


EST. 1982 
Pri SiO 199% 
cae TWARE 


D—DIsk 
T—CASSETTE 
CART—CARTRIDGE 





HAVE YOU 
GOT THE 
PM 1541 BLUES? 


WE'VE GOT THE PERMANENT FIX!! 

Here’s what we do... 
FIRST, we disassemble your 1541 disk drive. 
SECOND. we re-machine the stepper motor to the shaft 
THIRD, we adjust the stepper motor and align the heads. 
FOURTH, we upgrade your DOS to the latest version 

available 

GUARANTEED FOR SIX MONTHS! 

AND WE DO IT ALL IN 72 HOURS OR LESS!! 
TOTAL COST . . . $69.95, plus $7.50 shipping & handling 
We also service the entire Commodore Line with a 72 

hour turn-around time (subject to parts avuilability) 
c.64 es 59.00 
1541. eee we oy 65.00 
1702... . on on on 85,00 
1525/801 Rereeaea 59.00 
1526/802........ - 75.00 
1541 Flash Installed... . 125.00 
(Includes DOS Bridge and Switch for 100% Software compatibility) 
Call for Repair Prices on other Commodore Equipment 
We also repair Televideo Computers and Okidata Printers 
WE DO WARRANTY REPAIRS! — Call for Details 
$7.50 for shipping/$15.00 for APO/FPO or outside Continental US. 
Our BBS No. is 919-765-3892, Temporary Password — TRIAD 


TRIAD COMPUTERS 
3068 TRENWEST DRIVE, WINSTON-SALEM, NC 27103 
919-765-0433 








CALL (206) 236-2983 =~ 


(Omnitronix) 





NOT JUST ANOTHER \ 
PRETTY (INTER)FACE 





THE PRINTMASTER/+G With IntelliFeatures™ 
IY you don't cave what your printouts look like you could use any old ntertace_ It you want ful peor 
‘mance. with advanced features you can use then the PRINTMASTER/ «Gis fr you! The Pinimaster/+G 
‘has many features found no where else Full graphs compatabiity with Epson. Star Tally, Okidata 
Goria MEC and more Gaghecs speed has been masimaesd by 1edviong oF dimnating print fead 
srutfing Its last! Completes Commodore printer test srogram in 4 mutes, 400% laste than most 
other interfaces Emulation, Vansparent, isting. and decimal modes, plus two special wordy ocessing 
modes Cassetie o externally powered 


WHAT ARE INTELLIFEATURES? These ae the special acvanced features of he Punimasta/+G Set 
all margins and page length Single page pause Double density and reverse oaphics switch settings 
Secondary address lock Enhanced gagives characters. The Prntmastr ROM contans some special 
Commodore machine language routines whvch you can access with a LOAD command. ust Ike a disk 
Grive LOAD'S 4 1 Osplays the disk drectory without destroying BASIC memory LOAD'STATUS. 41 
splays complete Protmasier settings and status And more! Add $2 50 tor snwong Suggested 
felal $119.95 

LOOK! 16K BUFFER EXPANSION « Pugs sately ride Printmaster/+G case Accepts 16K in 40 
Saconds Includes a second ROM which adds many more fantastic nieliteatuves LOAD ENUM. 41 
ferumters a Basic progam LOAD'OLD' 4.1 recovers a NEW. Basic progam LOADINSERT: 41 
merges 3 Bic program Oesgn and use Special character sets LOAD EDIT’ 41 10 design special 
characters Proxram any character 10 be up to 90 CHRSs Many mare features than we can hist ere 
$89.95 


LOOK! PRINTMASTER/S tor RSZ32 priatars- 2 of rhe features ofthe Prntmaster/*G tor an RS232 
brmter Oo gaghics characters. and got graphucs on your saial Epson of other wgported printer 
300, 600. 1200 2400 taxed ward and parity OTR oF Xor-Xolt Randknake Plus/Minus 12 volts 
Specty male ot temale OB2S connector Add $2 $0 for sopping $139 95 




















Oealer of cll @ 
smite us Visa & Mastercard wet 
come 30 diy money back qua: 
nice Call oF wnte il you want 
fo pancipate ina marketing 














P.0. BOX 43-DEPT.G8_-MERCER IS., WA 98040 





sanvey 
DEALERS CALL US! 





End Cartridge Clutter! 


NOW - ANYONE CAN COPY 
C64 CARTRIDGES - FAST! 


CBUS — lets you copy and store up to 17 
cartridges on a single diskette. 


WE GUARANTEE STORAGE AND 
PLAYBACK OF ALL STANDARD 


COMMODORE 64 CARTRIDGES 
BUS — The Cartridge Back-up System 
for the Commodore 64..... $99.95 


Price includes CBUS | Cartridge Snapshooter, CBUS I! Cartridge 
Emulator, Diskette with all necessary programs. Additional 
CBUS II's available for $69.95. Please add $3,00 for shipping and 
handling. 


PA residents please add 6% 
VISA, MC, CHECK, M.O. Accepted 
J. Brachman Associates, Inc. 
P.0. Box 1077, Havertown, PA 19083 


CALL TOLL FREE — 1-800-CBUS-C64 


IN PA — (215) 622-5495 
Commetre 64 a spate tena af 

















International 





This publication 
is available in 
Inicroform. 


University Microfilms 
reproduces thi: 

croform: 

microfiche and 16mm or 
35mm film. For information 
about this publication or any 
of the more than 13,000 titles 

we offer, complete and mail the coupon to: University 
Microfilms International, 300 N. Zeeb Road, Ann Arbor, 






MI 48106. Call us toll-free for an immediate response: 
800-521-3044. Or call collect in Michigan, Alaska and 
Hawaii: 313-761-4700. 


Please send information about these titles 





Name 
Company/Institution 
Address 





~ University 
Microfilms 











presenting ... CAPTURE’ 


A NEW WAY TO UNLOCK THE POWER OF YOUR C64 OR C128* 


¢ CAPTURE |S A CARTRIDGE THAT PLUGS INTO YOUR COMPUTER'S EXPANSION PORT. 


e CAPTURE DOES NOTHING — UNTIL YOU PRESS ITS CAPTURE BUTTON. UNTIL THEN, A 
RUNNING PROGRAM CANNOT DETECT ITS PRESENCE. 


e@ CAPTURE THEN TAKES CONTROL — NO IFS, ANDS OR BUTS — AND PRESENTS A MENU. 


© CAPTURE WILL NEATLY SAVE EVERYTHING IN YOUR COMPUTER TO YOUR 1541 OR 
COMPATIBLE DISK DRIVE — ALL 64K OF RAM, CPU, VIC AND SID CHIP 
REGISTERS — EVERYTHING. IN EASY TO VIEW CHUNKS. 


¢ CAPTURE WILL, IF YOU WANT, PRE-CONFIGURE YOUR COMPUTER'S RAM SO THAT 
ONLY MEMORY ALTERED BY YOUR PROGRAM NEED BE SAVED. 


© CAPTURE WILL WRITE A BOOT ON YOUR DISK SO YOU CAN RELOAD AND BEGIN 
EXECUTION RIGHT WHERE YOU LEFT OFF. 


© CAPTURE DOES ALL THIS AT A cost oF wust $39.95 


BUT HERE’S THE BEST PART 


¢ CAPTURE WILL MAKE AN AUTO-START CARTRIDGE OF YOUR PROGRAM. IT'S EASY! 
JUST FOLLOW THE DIRECTIONS ON THE SCREEN. NOW PLUG IN YOUR 
CARTRIDGE AND TURN ON YOUR COMPUTER. IN LESS THAN TWO SECONDS 
YOUR PROGRAM BEGINS AGAIN AT PRECISELY THE POINT WHERE YOU 
CAPTURE'D IT. MAGIC! 


BESIDES CAPTURE, YOU NEED A promenade C1 AND A SUPPLY OF CPR3 
CARTRIDGE KITS. 


ORDERING INFORMATION 

* CAPTURE CARTRIDGE — COMPLETE WITH INSTRUCTIONS 
promenade c1 — EPROM PROGRAMMER WITH DISK SOFTWARE .... : 
CPR3 CARTRIDGE KIT — PC BOARD, CASE AND 3 EPROMS.........c.sccceseeees 
* DR—EPROM ERASER, TWO AT A TIME, 3 TO 10 MINUTES 
* STARTER SET — CAPTURE, Promenade C1 AND 1 CPRS.. 
DELUXE SET — CAPTURE, PrOMeNade C1, DR AND 2 CPR'S ......seeeeeeeeees 199.95 














SHIPPING AND HANDLING — USA: UPS SURFACE $3.00 
BLUE LABEL $5.00 NEXT DAY AIR $13.00 
CANADA: AIR MAIL $7.00 OTHER FOREIGN AIR $12.00 


CALIFORNIA RESIDENTS ADD APPLICABLE SALES TAX 
COD ORDERS, USA ONLY, ADD $3.00 


C64 AND C128 TM COMMODORE ELECTRONICS, LTD. “WHEN OPERATING IN 64 MODE 





TO ORDER: TOLL FREE 800-421-7731 TECHNICAL SUPPORT AND 408-287-0259 
FROM CALIFORNIA 800-421-7748 FROM OUTSIDE THE US: 408-287-0264 


JASON-RANHEIM 


580 PARROT STREET 
SAN JOSE, CA USA 95112 











Confused by Mail Order Ads??? 


Price is not the only concern. You should ask . 
1, Do you have the advertised product in stock? 
2. If the product is defective who handles the warranty? 
3. What is the total price delivered to my door? 
For the straight answers to these 
and all your questions, call us! 


UAUOGAUUNVOQOUGUAUUEOUOUOOOUUUOALH 
NEW C-128!!! | 
Call for pricing, 

availability & software, 











Send|Self Address Stamped Business Envelope for 
Complete Product List!!! C-64 Hardware'still available, Call! 


C-128 HARDWARE 
; 128K Expander 1571 Drive.... 350K DS/DD 


1700.. rs 
1750.. . 384K Expander 1670 Auto Modem... 1200 Baud 


1902 Color Monitor 13" RGB/Composite. .. 80/40 Column Display 


Teknika MJ22 Same Spee ag AG0RS svar ais eosin nace eee oc $289 
1350 Mouse....... ‘omputer Input 










Ease: 





C-128 SOFTWARE 
NANES suinitesatsanits Integrated Software for use with 1350 
Perfect Cale/Writer/Filer, Powerful CP/M Business Software 


PRINTERS 
STAR scGio 


2K Baller 














J selection of ribbons 















Powerty pe Daisywheel 18 CPS Okidata 182... . Call 
with CardcoB ... » $354 =MW-350 Interfac « Call 
DPS 1101 Daisywheel RitemanC+ ........ Call 
Direct Connect to C64... Call 
MONITORS 
Zenith ZVMGriAmb . $89/99  TeknikaMJ10 . + $189 
MODEMS 
Commodore 1660 .... $59 Westridge 6420 . Call 
Mighty Mo +. Call VIP Terminal... ++ Call 
CompuServe Starter Kit & Vidtex ........... Both for 39.95 


ACCESSORIES 
Com Cool DriveFan..... $49 Power Pak 
Com Cool Plus w/ surge... 69 — Surge Protector 4-Plug 
* SPECIAL * Xidex Diskettes SS/DD $10.95 * SPECIAL * 


BLACK NAUGAHYDE COVERS 
C-128 or 1571 Drive 
C-64 or 1541 Drive... 
MSD Drives 1/2 . 
Gemini 10X 














ea.$5 1702 Monitor . 
. 5/6  1525/MPS 801 . 
+ 9  1526/MPS 802 . 


DATABASE MANAGERS 





The Consultant .. $59 PES:File . . $59 
Super Base 64 . 49 PFS:Report. 49 
WORD PROCESSORS 
Paper Clip/& speller $55/69 Easy Script . $35 





Fleet System 2 . . Call Easy Spell. 


(MOST ORDERS SHIPPED WITHIN 48 HOURS! Advertised prices are for bank check or money order. 
VISAIMC orders add 3.5%. NO C.O.D ORDERS. Personal or company checks delay orders 21 days. All sales 
are final ~ defective merchandise exchanged for same product only. Call for return authorization number. All 
relurmed products are subject to a restocking fee unless they are defective and returned for exact exchange, In 
the continental U.S, add 3% for shipping (82,50 min.) Please call or shipping on monitors. Ohio residents add 
55% sales tax Prices & availability subject to change 


HOURS: MONDAY-FRIDAY 11 AMto7 PM * SATURDAY 10 AM to 5 PM 


une: 800-638-2617 


INFORMATION & IN OHIO 216/758-0009 
rape ‘td at Se | TT a 
H 
| ft A 


DIG Bi ii Ww, 


DIG unt hl 
1301 BOARDMAN-POLAND ROAD POLAND, OHIO 44514 
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For the Commodore 64! 


NOW kyan has... 
TWO Compilers! 


STANDARD kyan pascal is perfect for students. It is easy 
to use and helps students learn the Pascal language. 


STANDARD kyan pascal features: 
* Built-In Full Screen Text Editor; 
* Resident Editor/Compiler to Eliminate 
Disk Swapping; 
* MERGE and Other File Management Functions, 
* Stand-Alone Runtime Environment; 
* Code that Runs Up to 40 Times Faster than BASIC; 
* HELP menu and Full Set of Error Messages; and, 
* Tutorial Manual with Sample Programs. 


ADVANCED kyan pascal is designed for the more exper- 
ienced Pascal programmer. It contains all the features of 


| STANDARD kyan pascal plus the additional capabilities 
| | and extensions demanded by protessional programmers. 


ADVANCED kyan pascal features: 
* Optimized Machine Code Compiler (Runs 
8 Times Faster than P-code Compiler); 
* Built-In Assembler (Allows Full Hardware Control); 
* String-Handling and Random Access Files; 
* ALIAS Procedure to Assign File Pathname; 
* INCLUDE File Plus DISPOSE and 
CHAIN Procedures; 
* Special Procedure Prints Assembly Language Code; 
* Enhanced Graphics and Text Editing 
Capabilities; and, 
* Expanded Manual and Reference Guide. 


Both versions of kyan pascal are full implementations and 
require only a single disk drive, And, both come with kyan's 
MONEY BACK GUARANTEE . ../f you are not completely 
satisfied, return it within 15 days for a full refund of the 
purchase price. 


STANDARD kyan pascal 


ADVANCED kyan pascal Ss 
{Add $4 50/copy for handing: $1200 outs 
Nom America, Calfornia osidents add 65% sales tox) 


$49,95 
$69.95 





Send Check/Money Order to: kyan software, Dept. S 
Call: (415) 775-2923 1850 Union St,, Ste. 183 
MC/Visa Accepted San Francisco, CA 94123 
ADVANCED kyan pascal is also available for the Apple II 
and Atari family of computers. 





TUSSEY COMPUTER PRODUCTS 


SPECIALIZING IN COMMODORE 


Write or Call for 
aia 





We take a bie out ef pices! 


Please 
and PA orders 


800-468-9044 


Orders only = 
Information 
Open 9-8 Mon-Fri; 10-5 Sat East Coast Time 


40 Page Catalog 
of our entire line! 


814-234-2236 





PRINTERS 
Epson LX-80 


Near letter quality mode, 100 CPS in grat made Select typestyle trom top control 


panel | year warranty 


Our Price 


$226.00 


Star SG-10 


Upgrade of the popular Geman: 10X with a near letter quality mode and 2h bullet 
built im 120 CPS im drat mode, 30 CPS i NL mode. Both ction and tractor feed 


1 year wan 


Our Price 
199.00 
5323.9 
Please Cat 
$199.00 
Pease Call 
$239 00 
#21900 
$99.99 Pa 
123900 


pron AX 80 
Epson PX 40" 

son RX 100. FX 100 
Onimate 10 

OW 82. 92. 93.182 
Cardo LO 

Cardco LOM 

Hush aoco 

Fateman UO 


Powertype 18 CPS letter quality 
Panasonic 1091 


Panasonic 1092 


Please Call 


Please Call 
$323.95 
Please Call 


nasonc 1090 


$299.00 
$246.95 
$186.95 
Please Call 


WE FEATURE: 

LOW PRICES—it we don’t have the lowest price (an 
‘unhikely event) please give us a chance to beat it 

FAST, DEPENDABLE SEAVICE—Your order on in:stock 
items 1s shipped UPS ground the next business day. UPS 
2nd day and next day air available 








SPECIALS 


PRICES VALID UNTIL SEPT 30, 1985 
Mirage Professional W.P. . $36.99 
Mirage Database w/report generator | $36.99 
Paperclip 
Indus GT. . 
Vizastar .. 
Practical (ao or (t). 
Practifile (d) . 


P.S., the Programmable 
Spreadsheet 


«+ $216.95 
. $86.95 
$19.95 
$19.95 


Printer Interfaces 


Available Now! New Xetec Proter Intertace 
Be buller 
PC PAL Printer Stand 


‘Please Cail 
$1995 
54999 

Cait 
14993 
$4600 

Cait 
Cait 
37899 


Corda 1/+6 
Corgco 1/8 

Covdco PS tnertace 
MW 350 

Tymac Gonnenson 


Databases 
The Constant 
Mirage Database Manager Report Generator 
Sipetave 640 
Data Manage by eworis 
Prachhe by MSid 





Word Processors 


§ slot exp. interface (8/5 
Mail Now /64 

Spell Now 

File Now 

Graph Now 

Cale Now 


Hardware 


4493.99, 
36399 
$3700 
53699 


$6899 


$2900 
$3500 
$800 
$3200 
531.99 
42795 

Call 
$3199 


880 Baten nce 0 colon cae wih Ba 


v8 by Bateneslacuded 


Spreadsheets 
Cake Rent Ad feat) 
Cae Result Easy (ant 
PS (Pog Spreasseetid 
Practtle 64) 
Practeale 6416) 


Monitors 
Zensh 12° Amber 
Zenth 12° Green 
Satata SC 100 Coles Mansor 
Cable fr monitors 
Utilities 


Canada A/M backup program 


+ Basic 
CSM 1581 Alignment 





MODEMS 


Thos ou best selling 
24 recener butter it 


MPP 1064 modem w/VIP termunal 
Compuserve Stated Kit 

Compuserve Started Kit w/a modem 
VIP Terminal 


Westridge 6420 Automodem 


mode it autoanser, autoredial wit 


th software forthe 1650 


serve Stated Kit 


106.95 
ca 


COMMODORE 


Commodore 128 


PLEASE CALL FOR PRICE AND 
AVAILABILITY OF C-128, 1571, 
1572, 1902, and 1670 Modem. 


CLOSE OUT PRICES ON C-64, 1541, 1702, 
and SX-64 and 1660 Modem!!! 
PLEASE CALL FOR |.ATEST PRICES! 


PROLINE SOFTWARE 


novet tor the © 6. mehales 530 paye 
$46.99 
446 99 
43999 


Power 64 
Tooldor 64 
Wordpro 


Spelipro 


Disk Drives 
‘4so sor 
m0 Sou 
Indus GT Oisk Grwe 
5a 


New Products 
vo tom Sottsye. Integrated WP. Database 
Seadsheet, 46499 
inl. integrated WP, Oatabae 
eeatshet. Database. Business 


jlcad. download. and a 





Te Ode By Mai: Send personal check. money oreo cated check. Alon 2 wes to persna cbc 


Salwar and acessones a #2 0 ye oe 
sk Dives and Monitors 


COD orders 
‘940 5B 00 Call fr other shop 


43% for Mast 
or repaved at out ds 
without notice 


PLEASE NOTE When we ash yo 
because prices on those stems ate volatile 
to be sure we can give you the lowest prices we can 


TUSSEY COMPUTER PRODUCTS 
BOX 1006 
STATE COLLEGE, PA 16801 








LEROY’S CHEATSHEET’ 


ceveoutb ovenars PRINT T-SHIRTS 


= WITH YOUR S 
—— COMPUTER! {.). 


lindetwarc™ makes contomps Gl pedis 


T-Shirts in minutes! 


With the Underware Ribbon 

vat transfers of any screen image! 
us Just print the image on plain 

FOR COMMODORE 64 [ F 


(VIC-20 also available) paper u in Underware 





























LEROY'S CHEATSHEETS” are plastic laminated keyboard Ribbon, then iron it on 10 
overlays designed for use with popular software and your own TShirt. Each ribbon 
hardwarallors CommodorateiVIC=20/8iG-64/conputers: makes 30-100 permanent and washable transfers, 
; . ; Adding color is simple & inexpensive 
These cut-it-out yourself overlays are designed to fit over With a set of Underware ColorPens you can add up to seven 
the keyboard surrounding the keys with commands and colors to any transfer made with an Underware Ribbon. Just 
controls grouped together for easy references. color the plain paper transfer and iron it onto a TShirt 
A complete selection of Underware Products. . . 
' ® 
LEROY’S CHEATSHEETS The ribbon is available for the NEC 8023, C. Itoh, Apple, 
make life easier for you Okidata, Star Gemini, Epson and IBM dot matrix printers. 
For other printers — try our new Iron-on Coloring Kit with 

special carbon transfer paper. Please call for details 

1D Essy Senet maa se Underware Ribbon $14.95 

D HES Water Parse Osean ioe rae Underware ColorPens (set of 5) $14.95 

Paper Clip Series Oniy Z| Underware Jumbo ColorPens (set of 7) $19.95 NEW 

1D avick Brown Fox Flight Simulator i Underware Iron-on Coloring Kit $19.95 NEW 

Script 64 00 —= 

O Spoedscript (2.0 4 a.0 aazertey 1801 UNIDERWARE= ™ 

OD Worspros/PLus Sky Travel 

D Omniweter 

GuWordohs eat ley, aievetndayor Diversions, Inc. 415-591-0660 

O Write Nowis6a 1550 Winding Way, Belmont, CA 94002 

Q 














SIMON'S BASIC 
Basic 
Heamon 64 


Software Discounters ;-——»/ 


Of America (Peripherals, toon \ $9 014 
Orders Outside PA—1-800-225-7638 (olla 
PA Orders — 1-800-223-7784 
Customer Service 412-361-5291 

+Free Shipping on orders over $100 in continental USA 


+No surcharge for VISA/Mastercard 
*Your card is not charged until we ship 


Multiplan 
PractiCalc 64 
PRACTICALG Wt 


The Consultant (ove once) The Smart 64 Terminal 
© Tho Managor com Vip Terminal 
O Supertase 64 1D Termes 





The only telecommunications package 
you will ever need. 


Oty._x $3.95 $ 
Printer (cou) 1525, wes 401, MPs 89 
COM) 1826, MPS 802 Shipping & handing § 1.00 


(sen AX A FX 80.8 100 





% sales tax S$ 





TOTAL $ 


NO COD's PLEASE 


Dealer inquiries welcome 





Free Subscription 
to over 60 Popular Data Bases 


* Auto Dial/ 
Answer Modem 


349 5 A 


lowest price ever Compuserve Starter Kit (5 hrs.) $19 


Address 





City 


CHEATSHEET PRODUCTS we mi 


P.O, Box 111368 Pittsburgh PA. 15238 (aia)i78121861 








Charge My VISA or Master Card NUMBER EXPIRATION 
DATE 


“Ordering and Terms: Orders with cashier check or money order shipped im 
mediately. Personal/company checks, allow 3 weeks clearance. No C,0.0's. 
‘Shipping: Continental U.S.A.—Orders under $100 add $3; free shipping on orders 
‘over $100. PA residents add 6% sales tax. AK, Hl, FPO-APO—add $5 on all orders, 
‘Sorry—no International orders. Detective merchandise will be replaced with same 
merchandise. Other returns subject 10 a 15% restocking charge—NO CREDITS!) 
Return must have authorization number (412) 361-5291 


(eat ——l 





OR SEE YOUR LOCAL DEALER ! 











DISK DRIVE ALIGNMENT PROBLEMS? 


Thousands upon thousands of 
satisfied users have made the CSM 
1541 Disk Drive Alignment 
Program the best selling and most 
widely used alignment system 
—Used by many commercial align- 
ment technicians 
Recommended by leading soft- 
ware manufacturers 
—Available through dealers 
everywhere 
—Comprehensive manual with 
step-by-step instructions plus 
trouble shooting tips 
—Knowledgeable staff available 
for technical assistance in align- 
ing your drive 
—Works with the C-64 or the 
C-128 computers 


The only complete disk drive align 
ment program that does not re- 
quire any specialized equipment. 


HERE’S THE ANSWER 
COMMENTS FROM OUR USERS 


“In less than two hours from the start of reading 
the accompanying manual, my disk drive was 
running as good as new —perhaps better. 

D.D.. North Carolina 
“Your software was an enjoyable change from 
many programs | have bought. | recommend 
you to all | know.” 

K.J.P. 

COMPUTE!s Gazette Said: 
“... with 1541 Disk Drive Alignment from 
CSM Software. you can fix it [the disk 
drive] yourself in an hour or so and the 
program will pay for itself the first time you 
use it. . . No technical expertise is required 
to accomplish the alignment procedures. 
and the manual accompanying the pro 
gram thoroughly describes the 
procedures.” 
“1541 Disk Drive Alignment. . .a wise ad- 
dition to your home disk library.” 


Colorado 


From the review in— 
COMPUTE!’s Gazette, Oct., 1984 
$44.95 plus Shipping 


Don't be fooled by imita- 
tions—this is the alignment pro 
gram that allows you to accurately 
adjust all the disk drive functions, 
including speed adjustment, radial 
head alignment, hysterisis, stepper 
motor adjustment and end stop 
positioning 


Version 2.0 includes a highly ac 

curate digital calibration disk. The 
calibration disk is specially prepared 
on sophisticated equipment to in 
sure top quality alignment 


—No special tools or equipment 
needed. 


— Exclusive feature: includes direc 
tions for “The Fix,” to help 
prevent alignment problems in 
the future 


— Backups available at reasonable 
cost 


—In use for over one year. 








DISK DRIVE ALIGNMENT PROGRAM V 2.0-THE BEST IS NOW EVEN BETTER 








PROGRAM PROTECTION MANUAL 
FOR THE C-64 VOLUME II 
Not just a third edition 
manual covering the latest advances in program 
protection, Over 2’ 
tion, Topics include: 
ENCRYPTION AND DECRYPTION 
UNDOCUMENTED OPCODES 
GCR RECORDING 
CUSTOM DOS ROUTINES INCLUDING: 
Halftracks 
Exira Tracks and Sectors 
Non Standard Sectors 


anew and up-to-date 


pages of valuable informa 


Counting 


Track Arcing 


CARTRIDGES AND EPROMS 
Using an Eprom Programm 


Cartridge ion Schemes 
Eprom Design and Manufacture 


PROTECTING YOUR OWN SOFTWARE 
TIPS FROM EXPERTS ON 
‘TION AND BACKUP” 
MUCH MORE... 
A disk is included to help explain the concepts. 
$34.95 + Shipping 
Co Rs Ch Ds Sooke Ck ft. Ak, Sb Ae te 
IF YOUR'RE JUST LEARNING ABOUT 
PROGRAM PROTECTION YOU'LL 
WANT TO START WITH THIS 
MANUAL — DISK INCLUDED 


PROGRAM PROTECTION MANUAL 
FOR THE C-64 VOLUME 1 


$29.95 + Shipping 


NUMERIC KEYPAD 
FOR VIC and C-64 Telol 
NO SOFTWARE 
REQUIRED 
100% COMPATIBLE 
WITH ALL SOFTWARE | 


MORE FUNCTIONS THAN 
KEYPADS COSTING $79.95 


$64.95 + Shipping 


kee 


PROGRAM PROTECTION NEWSLETTER 

We will examine 3-5 (or more) programs 

each month. The prot ll be 

examined and broken down for aid in mak 

ing archival copies. This will be a How and 

Why approach to pre 

special monthly art 

operating system. product reviews and more 
$35.00 post paid in U.S. & Canada 
$45.00 First Class post paid Foreign 


a a a a 


CSM 


SOFTWARE, INC. 


P.O. Box 563, Crown Point. IN 46307 
(219) 663-4335 


VISA AND MASTERCARD ACCEPTED 
DEALER INQUIRIES INVITED 


on schemes w 








jing $3.50 per item in U.S.; foreign orders extra 


CARTRIDGE BACKER 
THE ORIGINAL 
CARTRIDGE BACKUP SYSTEM, 
BETTER THAN EVER 

PACKAGE INCLUDES: 

1. EXPANSION BOARD, PROGRAM 
DISK AND USER'S MANUAL 
CARTRIDGE BACKER software to back 


up 99% of the most popular cartridges 


to disk. 
SOFTWARE TO BACK UP MANY DISK 
PROGRAMS. 

SUPERBOOTER 


autoboots. 


SUPERSAVER 


disk or tape 
6 SOLD FOR ARCHIVAL USE ONLY!! 


Cartridges are saved to disk with an 
autoboot and will run as-is. Unlike all other 
ge backup systems, 


NO EXTERNAL RAM BOARDS, ROMS 
OR CARTRIDGES ARE REQUIRED, 
FOR THE C-64 
$54.95 + Shipping 
ee ee es 


SINGLE SLOT EXPANSION BOARD 


* FULLY SWITCHED, including GAME, EXROM, 
ENABLE, POWER & RESET SWITCHES, 


$24.95 + Shipping 


to create your own 


copies files to or from 


ALL CSM PRODUCTS ARE AVAILABLE AT YOUR LOCAL SOFTWARE DEALER 





EXCITING 
COMPUTER 


SIMULATIONS 


COMPUTER CONSULTANTS 


TRAIN DISPATCHER and SONAR SEARCH are 
available from SIGNAL COMPUTER CONSULTANTS, 
Ltd., P.O. Box 18222, Dept. 11,, Pittsburgh, PA 15236, 
or call (412) 655-7727. US and Canada add $2.50 
postage and handling ($4.00 foreign) for each game 
ordered. PA residents include sales tax, Use Master 
Card, VISA, moneyorders or checks drawn on US or 
Canada banks. Master Card and Visa show card num- 
ber, expiration date and signature. We guarantee and 
support our products. Free replacement orfull refund 
for 30 day warranty period. Dealer inquiries invited. 





Adapted for home computers by designers of sys- 
tems for major railroads, TRAIN DISPATCHER faith- 
fully simulates operations in a railroad traffic control 
center. In an accelerated 8 hour shift you must move 
up to 12 trains in both directions through a 150 mile 
territory-throwing switches and clearing signals to 
keep the trains on schedule. 

VIC 20, COMMODORE 64 and ATARI 400, 800, 
800XL versions available at $25.00; Apple Il, II+. Ile, 
lic $30.00; IBM PC $35.00. Tape or Disc except: 
ATARI 400-tape only; IBM PC and Apple-disk only. 
Other requirements: VIC-20-16K Ram; ATARI 400. 
800-Basic; IBM PC-Graphics Card. 








You never see the submarines. Rely on sonar 
sounds to track and attack evading enemy targets. 

‘As commander of a group of three destroyers you 
must locate, pursue and sink a “Wolfpack” of 5 subs, 
Guided only by the realistic “pinging” of returning 
sonar echoes and bearing to target, SONAR SEARCH 
offers a unique and authentic simulation of WWII 
antisubmarine warfare. 

Available on disk or tape for the Commodore 64 at 
$30.00, plus postage and handling. Includes fully 
illustrated manual and keyboard template. Not re- 
commended for children under 12 





Nobody, copies better !! 


Since November 1984, Mr. 
successfully copied hea 


diskettes for grateful C-64 owners! 





Nibble has 
vily protected 


ME.NIBBLE 
delivers! 
The next generation in archival 


methods is here today! 


© Nob 





Own THE FINEST DISK COPIER SYSTEM for 


The C-64 and 1541 disk drive- Oydgy today ! 





Full Circle 


Software 


FULL CIRCLE SOFTWARE, INC. 
P.O, Box 1373 
Dayton, Ohio 45401 


Phone ($13) 229-2102 
SHI.IS (Sricridere 0 aes) 


10 Gay rota preg 


Special MSD Version now available! 








All programs 
listed in this 
magazine are 
available on the 
GAZETTE Disk. 
See elsewhere 
in this issue 
for details. 



























TOTALLY 
NEW! 


RATA |; second| sneer stor 
WHOSE aoe Back “UP | VIRTUALLY EVERY TIME 
Has CO the 21 Second Back-up 


BLUE —_——____—__ 
CHIP FOR COMMODORE 64 


150/10 PRINTER $199.00 
10” CARRIAGE, 150 CPS, SUB AND 
SUPERSCRIPT-UNDERLINE, ETC. 





120/10 PRINTER $179.00 
DOT MATRIX, 10” CARRIAGE, 120 
CPS, SUB AND SUPERSCRIPT- 
UNDERLINE, ETC. 


150/15 PRINTER $249.00 
15" CARRIAGE, 150 CPS, SVB AND 
SUPERSCRIPT-UNDERLINE-IBM 
CHAR. SET 


M 120/W2Q PRINTER 
LETTER QUALITY, 120 CPS 


$219.00 


D 12/10 PRINTER $219.00 
DAISY WHEEL 





BLUE CHIP DISK DRIVE 
FOR COMMODORE C64 





30% FASTER $159.00 


<P UNIVERSALosst 


MASTERCARD, VISA, M.0. OR CHECK 






THE COPY PROGRAM 


¢ EXACT COPIES IN ONLY 21 SECONDS 
© SIMPLE-FULL BACK-UP IN A 


ONLY FR, M 















(«3 


INTEGRATED SOFTWARE 


BY INFO DESIGNS FOR C64 








WORD PRO3 
ACCT. PAYABLE REG, $49.95 
ACCT. RECEIVABLE 4 NOWONLY 
PAYROLL $34.95 
INVENTORY ) 
GENERAL LEDGER 
C64-COMPUTER $139.95 
SALES EDGE REG $79.95 | 1541 DISK DRIVE 169.95 
MANAGEMENT EDGE | NOwONLY | 1702MONITOR 174.95 
NEGOTIATION EDGE $59.95 1101 PRINTER 274.95 
COMMUNICATION SGIO PRINTER CALL 
NEW: COMMODORE 128 CALL 


MISC. SOFTWARE 
ACCESSORIES 


FASTLOADS 
S-GAMES 


$24.00 
$12.95 


LOOSE DISKETTE BONANZA 


LOOSE NAME-BRAND DISKETTES 
AT SUPER LOW PRICES! 












SS/SD . 
SS/DD . 
DS/DD . oe 
Lifetime Guarantee STORAGE CASE 

(min. order 50 pieces) 60 DISKETTES. 
“MAA ET Tact $10.95 
___ DISKETTES | LIBRARY CASE $2.00 
NASHUA . 10.95 Holds 10 Diskettes 
SCOTCH . 14.95 assesses 
MAXELL. . 
MEMOREX......... 14.95 SURGE PROTECTION STRIP 29.95 
TRY OUR OWN TOP QUALITY 6 OUTLET-EMI/RFI FILTERING 
UNIVERSAL 


WICO BOSS JOYSTICK 13.95 


DISKETTES ONLY $14.95 bx 


475 MAIN ST. 
FARMINGDALE, NY 11735 


SEND $5.00 FOR 


CATALOG & ADDITIONAL 
SPECIALS 


NY-ORDERS ADD SALES TAX 


All Prices & Availability subject to change without notice. Prices are mail order only and_do not include shipping & handling 








IN CANADA CALL: (514) 678-5258/CALL FOR OUR OTHER N.Y. LOCATIONS 





FOR COMMODORE 64 


Why nibble when you can 


— Gulp — 
Hardware/Software Protected Disk 
Backup System 
Installs in 1541 Drive in Minutes 
Just Plug It Int! 

2 Minutes For Full Disk Backup! 
Features include: 

Automatic Operation, Hyperscan 
Sector Edit (GCR), Bit Density, Tracks 1-45 
© For All New Protection Methods @ 


89.95 
e DISKMIMIC 5+™e 


Our Famous Automatic 


Backup System 


49.95 


DISKAT - 
Cataloging Program 
Reads data directly from Disk, 
Holds 8000 Files, Makes Labels, 
Recalls 12 Way's, Alphabetizes 

Files, Printer/Screen Output. 


3495 


A.D. CORP. 
4020 Hempstead Turpike « Bethpage. New York 11714 
(516) 731-7100 
Diskmimic 5" is a trademark of A.D. Corporation 
Commodere 64" & 1541" i a trademark of 
Commodore Electronics, Lid. 
Shipping 8 Handling — $1.59 each 





COMPUTEREYES” 





peel 








ae 








Seren ouroso aus 
ae COMUTEREYES™ ages 


‘ito avatabi for Ape eri 


WIDIGITAL VION 
DIGITAL VISION, INC. 
14 Oak Street — Sulte 2 
Needham, MA 02192 
(617) 444-9040 














INTRODUCING: 
PERIPHERALS THAT WORK TOGETHER! 
ererreeretererrtiririirer titty) 
Now, use disk drives, modeas, para- 
llel printers and sore... all at 
the sane tiae! 








Universal Interface -~ 
C-64, provides 
device selection ..., 


connects to 
buffered bus and 
$49.95 





NOTE: All boards below require the 
Universal I/F be connected to the 
computer. 











Floppy ~~ controls 4 single, double, 
or quad density 5-1/4" drives, or 8° 
drives .. 8139.95 

Dual 5-1/4" drive cable ...$19,95 
Rasdisk -- contains 256K of RAM, 
expandable to 2 megabytes. Transfers 
over 70K bytes/sec .. +$229,95 














Print Spooler -- contains 64K 
buffer. Controls 2 parallel 
printers + 6129.95 
5 ft. printer cable .....$24,95 
RS-232 Controller -- contains 64 
buffer. Controls 2 serial port 
Baud rates to 19,200 ....+...8149.95 





Sth. 
cable 


ale RS-232 
+ #12,95 


sale or ¢ 








To order or for information: 


(405) 745-9322 


Research Service Labs 
P. 0. Box 19124 
OKC, OK 73144 








Cartridge 
back-ups 
made easy! 


Makes working copies of all C64 program or 
game cartridges — fully automatic operation — 
no confusing DIP switches or LED's — 

no programming knowledge required. 

Copies onto disc or cassette — either will hold 
several cartridges for convenient storage and 
access — select and run cartridges from 
convenient menu (disc only). 

Comes complete with 16 K RAM — includes 
hardware logic for true cartridge emulation — 

ng 


even supports memory banking. 


plus $3 handling and shipping 
(Texas residents add 5% sales tax) 

Satisfaction unconditionally 

guaranteed or your money refunded. 


Send check of money order to 
Merit Nero Systems 





19 
(procedures included with cassette 10 UP 
‘Additional information (214) 231-1140 








NIBEOR 


JUHIE 
THE 


MIRROR 


VATU 183 TBS 
DISK COPIER 
$24.95 


INO FINER OR MORE ADVANCED ARCHIVAL 
COPIER AVAILABLE AT ANY PRICE. 


EASY TO USE, 


AUTOMATICALLY MAKES BACK-UP COPIES 
FROM VIRTUALLY ALL PROTECTED 
SOFTWARE. 
NIBBLES, HALF TRACKS, COPIES EXTRA 
SECTORS AND EXTRA TRACKS. 
REPRODUCES ALL DISK ERRORS 
AUTOMATICALLY. 
FAST, COPIES FULL DISK IN AS LITTLE AS 4-7 
MINS. EVEN COPIES ITSELF. 

MASTERCARD, VISA, M.O. OR CHECK OK 

+ 53 SHIPPING & HANDLING 
C.O.D. OR FOREIGN ORDERS ADD $2 
‘CALIF, ORDERS ADD 6% SALES TAX 
—WRITE OR CAUL— 





(408) 758-2436 
P.O. BOX 6427 


SALINAS, CA 93912 2) 


FOR COMMODORE 64 AND 1541 DRIVE 





ARCHIVER™ 


by the authors of the 
Cartridge Backer and other systems 


TIRED of waiting MONTH after MONTH for a 
newsletter? GET THE ONLY PUBLICATION 
SHOWING HOW TO BACK UP OVER 250 
DISKS AND CARTRIDGES WITHOUT THE 
ERRORS? 


INCLUDES: 


@ Manual showing how to BACK-UP over 
250 TOP-SELLING GAME, BUSINESS and 
UTILITY PROGRAMS 


# THE ONLY ML MONITOR that decodes un 
implemented op-codes 


© Auto-Boot builder, T & S editor, Sector 
Searcher, 4 ML Monitors, 4 Min Copier, 
and much more on disk 


‘® Enables the NOVICE to UNDERSTAND and 
CREATE a back-up copy in as little as 60 
SECONDS? 


© Back-ups run WITHOUT DOS ERRORS 
and work with most 1541 compatible drives 


@ REPLACES those EXPENSIVE disk Cloners, 
Nibblers, Makers, and Black Boxes 


FOR ARCHIVAL USE ONLY 


COMMODORE 64™ and C-128™ 
send CHECK OR MO. for 299° 


plus 25 shipping/Handling to: 


CYBERTECH 
P.O. Box 4065 
East Lansing, MI 48823 











Introducing .. . 


THE 996 DISKETTE 


Are you paying too much for diskettes? Try our 
first quality, prime, 5%" diskettes (no rejects, no 
seconds) at these fantasic sale prices and save, 
save, SAVE! Disks are packaged in boxes of 50. 
each box contains § shrink-wrapped 10-packs that 
include diskettes in sleeves, labels, and write- 
protect tabs. 

Each diskette is certified to be 100% error free and 
comes with a lifetime warranty (it you have a 
problem, we'll replace the diskette). All diskettes 
include hub reinforcement rings and write- 
protect notch 

All diskettes are double density and work in either 
single or double density drives. 

SS, DD Diskettes, Box of 50 

92391 $49.50-199¢ ea! 


DS, DD Diskettes, Box of 50 
32403 $64.50-11.29 ea! 


The Most Complete Disk Drive 
You Can Buy 


Includes Word Processor, Spread Sheet, and 
Data Base Manager 


INDUS GT SCall 


Stato-ol-tho-art disk drive for C-64 and VIC-20 features LED 
soctor indicator, electronic write-protect, builtin wedge, and 
operating speeds up to 400% faster. Package includes cables 
and power supply, carrying case that doubles as a disk storage 
file AND sofware starter package featuring word processor 
spreadsheet, and database manager program! 

FULL YEAR PARTS AND LABOR WARRANTY!" 


93443 Indus GT Disk Drive SCALL 


CARTRIDGE EXPANDER 

Plus $22.95 

FAST LOAD 
OFFER! 


Stop wearing cartndges by endieas om 
‘design cartridge expander features two cartridg 

'Widg9, oF the “ott p cartridge 

‘utor independently ofthe power switch. Cartridge 

‘easy access—no blind fumbling behind the comp 


34220 2-Slot Cartridge Expander 


i 


ges 
34216 Fast Load Cartridge (sug. Retail £349» 


Fast Load ONLY $22.95 
with purchase of cartridge expander! 


From Your Friends At We gladly accept 
mail orders! 


P.O. Box 6578 


South Bend, IN 46660 
Questions? Call 


219/259-7051 





Sensational Prices! 
. . . On Our Most Popular Items! 








LOWEST PRICES! 


We can offer you somo of the lowest prices in the country on the most 
popular prints, monitors and interfaces. Our normal prices ara al onay 
{ow but fomako sure you got the Dest deal you can, we wil also moet most 
win placed on an equal bass 
tard, Imposo excessive EPSON 
Doost the price you pay 
BMC 


8 ordered o AXIOM 
customers-—your charge card is billed at imo of shipment only fo 
Shipped-no early biling, no ong walt for the merchandise you already CARDCO 
paid for. 
» THE BEST PRICES » THE BEST SERVICE + 
WHY SHOP ANYWHERE ELSE? 


COMPUTERFACTS® « *"s 


Technical Service Data for 
Your Computer and Peripherals 


All packets 
$17.95 each 


TIED UP BY 
PRINT TIME? 


ra, compute for ote 


cts: Just connect 


end I 10 your printer at 
4K of usable RAM wil old 


33940 MicroStuffer 


DUST COVER and 


“EVERYTHING BOOK” 
INTRODUCTORY SPECIAL 


10 know us by ordering thes great dust cover 
for your VIC-20 oF Commodore 64 and our cata: 
Jag, “The Everytting Book for the Commodore 
C64 and VIC-20 Home Computers, tor $2.95 
(no extra shipping or handing charges) Cover 
‘5 anbstate, ansluscent, 6 gauge vinyl sewn to 
ur exacting standards with reinlorced seams. 


USE SINGLE SHEETS 
IN YOUR TRACTOR FEED 
PRINTER WITH 


PAPER TRACTOR * 


Paper Tractor carries ordinary sheet papor 
through your tractor~feed printer! 

Simply place your letterhead, checks, 
Discover the savings and easy shopping aval invoices, forms, even legal-size sheets 
able trom Tenex Computer Express! into the durable flexible plastic carrier and 


pare 
22084 . 


31627 Dust Cover and Catalog 


SHIPPING CHARGES 
ORDER AMOUNT CHARGE 
less than $20.00 $3.75 
$20.00-$39.99 4.75 
$40,00-$74.99 5.75 


$75,00-$149.99 675 ORDER TOLL FREE 
Segon-seweo 77 Mier] 1-800-348-2778 


NO EXTRA FEE FOR CHARGES 
NO HIDDEN EXTRAS 


FREE?DISKETTES 


SAVE MONEY ! C64 and VIC 20 users can 
use the diskette flip side, if another 
‘write enable’ notch is correctly made. 
TOP NOTCH™ by QUORUM 
quickly solves that problem. 
It's like FREE DISKETTES! 
*# Stainless Stee! Guide 
STS © Easy Leverage Handle 
: *# Clippings Catcher 
‘~ ——# Square Notch Cut 


Aifaime Warranty 


TOP NOTCH™ Just $14.95 
Add $2.00 s/h © CA Res. add 97¢ tax 
Hs the CORUER DIRECT FROM QUORUM 


-! 1-800-227-3800 
aha 24 Hour Ordering Ext. 30 


Notcher! —_soaav nocoa Visa/MC 


QUORUM INTERNATIONAL, Unitd. 
INDUSTRIAL STATION PO BOX 2134-Gz 
OAKLAND. CA 94614 





ALL C-64° VERSIONS OF 


SpeedScript 


CAN USE THESE ENHANCEMENTS: 
JUSTIFICATION: Full 


Alignment for print-outs; 


and right margin 
tn on/ott control. 






Specity SpeedSc: 


Send Check or Money Order to 

» LIDON gee — 
P.0.Box 7 
Elm Grove, Wi 53122 


3.1 Enhancer 








smooth 
STYLE action 

“OUTSTANDING sound 
effects and graphics 





only 329.95 Animation, ine. 


PO. Box 32171 








SPORTS 
POOL 


Commodore 64 & IBM pc 


SPORTS POOL runs your football poo! for 
the office, family or friends the fast & easy 
way. Although it arrives with the 85° pro 
Schedule, it can easily be set-up to handle 
any sport at any level. (pro, college, etc.). 


SPORTS POOL handles all standard pool 
fequirements including the storing and 
reporting of information on players, teams 
schedules, picks & YTD statistics. Options 
include multiple winners, tie breakers, 
several reports, pick sheets and other 
exciting features that allow you to easily 
custom tailor the pool to meet your 
Individual requirements, 


C-64 Disk . Only $29.95 
IBM Diskette +. Only $39.95 


Add $2.00 for handling 


BANCOM SYSTEMS INC. 
P.O. BOX 1783 
KANKAKEE, IL 60901 














Value Priced Diskettes! 
Lifetime Warranty! Hub Rings! 100% Error-Froe! 


97 Each* 
{$1.07 Each? 
{$1.17 Each* 


SUPER SAVINGS ON POLY-PACK DISKETTES 
With Envelopes, WP Tabs, User ID Labels 


Minimum order — 50 Diskettes. Quantity 

Discounts Available. Mi Residents, add 4% Sales 

Tax Shipping & Handing $4.00/100 Diskottes. 

COD, add $3,00 Cort. Cneck/Money Order 
TO ORDER: Call or Write. 


ia 
= 


Precision Data Products 





ATTN: LEAGUE SECRETARIES 
U Vv 
C JAN. 1985 
A PROFESSIONALLY DESIGNED 
LEAGUE SECRETARY PROGRAN 
HANDLES SCRATCH, HANDICAP, AND MIXED 
LEAGUES; WITH UPTO 12 TEAMS AND 5 
BOWLERS PER TEAM AND SO SUBS 
ALL MENU DRIVEN AND HELP ON DISK. 


FOR MORE INFO CALL OR 
SEND $34.95 FOR C-44 DISK 
W/O OR CHECKS (NYS RES ADD 2.45) 
B.S. SOFTWARE 
160 E. NORTH ST. 

GENEVA, NY, 14456 
(315) 789-5250 
CALL FOR C.0.D. (ADD $2.00) 
ALLOW TINE FOR PERSONAL CHECKS 





QUALITY MEDIA Because we buy 
LIFETIME REPLACE in huge volume to 

GUARANTEE | supply software 
HUBRINGS,TYVEPS, manulacturers. our 
WRITE PROTECTS prices can't be beat. 
50+ 250+ 500+ 1000+ | 
s2s'ss00 100 0 8 B75 | 
S2s'0800 118 105 100 9s 6s 

PCFORMATIED 145 185. 125 

DiFor Mac) 270 260 245 CALL CALL 
‘Sst20(FOrHP) 460 928 448 CALL CALL 


| COMPUTER SUPPLY 
P.O, Box 883362 + San Francisco, CA 94188 
Inquiries + No. Cal, orders 415-550-0512 
So. Cal, orders 800-235-6647 x31 
USA orders 800-235-6646 x31 
| ‘Add $3.00 shipping and handing 
(CA residents add 6 9% sales tx) VISA/MIC/COD 
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FREE LANGUAGE! 


Do you want to use the advanced 
features of the 64 without spend- 
ing months learning a language? 
Turtle PILOT 64 is the answer! 
Commands for high resolution 
TURTLE GRAPHICS and music. 
MGreat for writing educational 
software or teaching program- 
ming to beginners or children. 
Combine PILOT and BASIC com- 
mands in the same program. 
BwWritten in machine language. 
No copy protection! 
For your free copy, send a blank 
disk and SASE. Or just send $5.00 
for a copy on disk. To help you 
use the language, a reference 
manual, including tutorial sec- 
tions, is available for $7.95. 
Add $1.00 shipping for manual. 
Send check or money order to: 
Alan Poole 
4728 King Road 
Loomis, CA 95650 





TAPE USERS! DISK USERS! 


SUPER SERVANT 


the easy-to-use file manager 
for the Commodore 64 


SUPER SERVANT is. 
“user defined record format “up to 15 fields per 
record, 35 characters per field ‘average 150 to 250 
records per file “numenc field checking “15 sort 
levels “15 soarch loves using strings, = <> «> 

<> “display, add, delete, modily records 
“modify format before printing record or hile "write 
oF read files using diskette or cassette tape "16-color 
cursor, background, border control “foolsafe menu 
assisted data entry "no copy protect-make back 
ups as needed “plus, diskette users enjoy: Save 
with Replace. Scratch file, Rename file, New 
Diskette, Initialize drive, Error report, File Directory 
display" 

For SUPER SERVANT, manual, and lots more 
pay only 14.95! 

Indicate whether you'd like SUPER SERVANT on 
tape or diskette and send check or money order for 
1495 to: 





Hudson River Software Corporation 
P.O. Box 506, Staten Island, N.Y. 10304 
Well shi SUPER SERVANT the day your order arrves 
Required: 1541 diskette drive or cassette tape unit 
Optional: Commodore 64 interface-compatible oninter 





Classified 






set in boldface (any number of lines.) 


MasterCard is accepted. 


words to be set in boldface. 


call Harry Blair at (919) 275-9809. 










SOFTWARE 


LOTTO-MASTER: Picks 6 numbers from 40 or 
more. Sophisticated grouping gives lower 
“average” combination odds. Specify 40, 42, 44, 
or 45 numbers. $25.99; Tape or Disk for Com- 
modore 64 or VIC-20. W. Dick, 1149 Broadway 


‘Ave, Masury, Ohio 44438 


YOU WON'T BELIEVE THESE GREAT PRICES. 
SEND FOR YOUR FREE C-64 CATALOG 
PANTHER SOFTWARE 

6608-4 WISTERIA DR., CHARLOTTE, NC 28210 


MUSIC LOVERS! J S Bach’s Goldberg Variations, 
complete on C64 disk. One hour of glorious 
music. Send $19 to E. S. Fern, 73 Windfield Cr, 
Kingston Ont Canada K7K6G6 


‘TRIFLING WITH TRIVIA—ONE OF THE BEST! 
General or Sports Edition: $11,00 each 

or both for $17,00 (shipping included). 

Send check/money order to: MTR Software 
P.O, Box 2153, Streetsboro, Ohio 44240. 


* PERSONALIZE YOUR COMMODORE 64 * 
Direct replacement chip for your old kernal!!! 
SEND: PWR/ON Message (up to 29 char. plus 
color) Border, Screen, Cursor Colors. Default to 
drive? Plus $24.95 CHECK or M.O. to: TARA 
SOFTWARE, 337 Mohawk Road, Brownsboro, 
AL 35741 














HONEYMOONER TRIVIA*RALPHIE*How sweet 
it is! Not for blabbermouths! Disk or Tape 

NY BASEBALL TRIVIA-How much do you know 
about Mets/Yanks?-Don’t be shut out-Disk 
$15,95 each-Both for $25-B.A.R. Software 

P.O. Box 512, East Northport, NY 11731 


SCREEN EXPANDER-Fast C64 ML program 
adds 2nd screen, 2-way 50 line vertical scroll and 
more, Direct/BASIC control, Tape/Disk AUTO 
MAINTENANCE REMINDER-Program tracks 
mileage & indicates when maintenance due Disk, 
C64. Send $14.95 ea. or $24,95 both. SidK, 64 
Ridgewood Vig., Auburn, AL 36830 


EASY DOS 
for Commodore 64, Send $12,99 + $2.50 post. 
to: Bit by Bit Software, Box 3941, Youngstown, 
Ohio 44512 











COMPUTE!’s Gazette Classified is a low-cost way to tell over 
275,000 microcomputer owners about your product or service. 


Rates: $25 per line, minimum of four lines, Any or all of the first line set in capi- 
tal letters at no charge. Add $15 per line for boldface words, or $50 for the entire ad 


Terms: Prepayment is required, Check, money order, American Express, Visa, or 


Form: Ads are subject to publisher's approval and must be either typed or legibly 
printed. One line equals 40 letters and spaces between words. Please underline 


General Information: Advertisers using post office box numbers in their ads must 
supply permanent address and telephone numbers. Orders will not be acknow!- 
edged. Ad will appear in next available issue after receipt. 

Closing: 10th of the third month preceding cover date (e.g., June issue closes 
March 10th). Send order and remittance to: Harry Blair, Classified Manager, COM- 
PUTE!’s Gazette, P.O, Box 5406, Greensboro, NC 27403. To place an ad by phone, 


Notice: COMPUTE! Publications cannot be responsible for offers or claims of adver- 
tisers, but will attempt to screen out misleading or questionable copy. 


INVESTMENT SOFTWARE THAT WORKS! 
Tracks stocks & mutual funds, plots graphs (dot 
matrix printer), gain (loss), more! C64 

disk only $69.95 check or M.O. (NYS add 

7% tax). 4-6 wk delivery. RJM Software, 

P.O. Box 90396, Rochester, NY 14609, 








DOWNHOME CHEF! Save your favorite 
recipes, change them at will, print a 

copy for the kitchen, 100 recipes per 

disk! C64&C128. Send only $19.95 +$1,50 
S&H to: Downhome Publishing, 621 E. 
Chicago St,, Elgin, IL 60120 


GRAPHETI flexible hi-res graphics editor 
and sketchpad for the Commodore 64. 

Disk $29.95 (MA add 5% s.t.) ARIES SOFT- 
WARE, P.O, Box 3006, Andover, MA 01810 


WIN THE LOTTERY! 5 basic programs that wi 

let you beat the odds! C20, C64 listings $20, disk 
$25, Lowell Software, 1510 Valley Lake Dr. #103, 
Schaumburg, IL 60195 


“FREE VIC-20 GAME WRITING TUTORIAL— 
Buy RetroRescue + SnakeSnatch action games. 
Both only $4.95 tape, Guaranteed. Mail to: P.O. 
Box 277, Jacksonville, OR 97530 


TEACHER'S GRADEBOOK—Rated excellent 
educators, Full features-several grade/ 
printer options. $39,95 + $2.50 s/h. 
Teacher's Helper, P.O. Box 25003, Lansing, 
MI 48909. C-64/disk only. Details free 








U.S. FLAG: Powerful waving engine generates 
full-screen animation never before seen on C-64. 
$12.50, 21st CENTURY SOFTWARE, Box 2094, 
Oceanside, CA 92054 


NEW! SPEECH-64 VOICE SYNTHESIZER FOR 
C64—Clear Infinite Vocabulary, 4 Voices, built-in 
Software! Send $49.95 freight paid (MN add 6% 
tax) Check or M.O.: Lyndale Sales, 9065 Lyndale 
Ave. S, Minneapolis, MN 55420 


HARDWARE 


INTERFACE BDS. for the 64 expansion port. 1/0 
BD. with 4, 8 bit ports and 8 hand shake lines 
plus interrupts for $109.00. 8 chan,, 8 bit A/D. 











BD. with OP-AMP scalling on 3 channels for 
$119.00. Wire Wrap/solder PROTOTYPE BD, for 
$39.00. All bds, have gold platted edge connec- 
tors and quick connect terminal strips, Documen- 
tation and software examples to aid user. Send 
check or money order to: IMPACT ELECTRON- 
ICS, 2116 E, Arapaho, Ste, 599, Richardson, TX 
75081 or call 214-480-8070, 


MISCELLANEOUS 


“OWN YOUR OWN COMPUTER BUSINESS. 
Earn $500-$1,200/wk, selling computers & 
accessories, Send $20 for info, kit to: Universal, 
475 Main St,, Farmingdale, NY 11735, 


FREE C64 SW CLUB—EUROPEAN TOP 20 
Programs, members discounts, Introd, offer: 

Free memb. catalog & reviews. Arrow Express, 
Box 205-G9, Rossland, B.C,, Canada VOG 1¥0 


C-64 OWNERS—Clean up your act! The Disk 
CATALOGER will organize your disks. Sort by 
relative, program, sequential, or all files! 

Hard copy, too! Send $19.99 to CBA, Box 505, 
Montgomeryville, PA 18936 


COMMODORE OWNERS: Free catalog loaded 
with lots of Commodore computer goodies, 
Discount prices, so check us out and see. 
Creative, P.O. 2477, Big Bear, CA 92314 

































C64, VIC20 POWER SUPPLY 


PSo1 


UL LISTED EXTRA POWER TO TAKE CARE EXTRALOADS 
AND HEATING PROBLEMS, 


C64 CONTROLED 
R/C TANK 


z $119.00 

PACKAGE INCLUDES ONE 155"L RADIO CONTROL 
TANK, C64 INTERFACE BOX, SOFTWARE IN DISKETTE. 
OPERATE YOU A/C TANK WITH C64 JOYSTICK. USE 
C64 TO REPLAY AND MODIFY JOYSTICK COMMAND IN 
ANY TIME INCREMENT, R/C TANK COULD ALSO BE 
CONTROLED MANUALLY WITHOUT Cé4, 


MAXTRON 
1825A Durfee Ave. 
S. El Monte, CA 91733 
(818) 350-5707 
VISA & MASTERCARD ACCEPTED 


$4.00 shipping per item, Calit. add 6.5% Tax 
DEALERS WELCOMED 
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155 Software Discounters of America ... 
156 Software Discounters of America .. 
157 Starpoint Software f 
158 Starpoint Software 
159 subLOGIC Corporation . 
160 Tenex Computer Express . 
161 Timeworks, Inc. ... 
162 Triad Computers . . 
163 Tussey Computer Products 
Ultrabyte A 
164 Universal Dist. 






























COMPUTE''s Classified Ads . . 127 
COMPUTE!'s Gazette Disk Subscription 


vas Cove ded boca sin vipelag cise 16-17 
COMPUTE!'s Gazette Subscription .. 32 
COMPUTE!'s Telecomputing on the 

Commodore 64... ... 005+ seal 
COMPUTE!'s Tool kit: Kernal and 

‘Commodore 64/128 Collection 3 





COMPUTE!'s VIC-20 Collection. 
Games for the Commodore 64 Books ‘0 











Commociore 
Service 


3-5 Day 
Turn Around 
C-64 Repair ..... $5500 
1541 Alignment .$35°° 
1541 Repair..... $75°° 
Other Computers . .$CALL 


Parts & Return Shipping 
Included. 
Parts & Power Supplies 
Also Available 


To save C.O.D. charges — 
send Unit & Power Supply 
with check or M.O. 





Second Source Engineering 

9901 Horn Rd., Ste. B 

Sacramento, CA 95827 
(916) 364-5134 











1541 PHYSICAL EXAM $39.95 


See Reviews In: RUN, June 1985, p. 14 
MIDNIGHT GAZETTE #23, Mar-May '85, p. 78 


AHOY, April 1985, p. 32 
Reductions of actual signs 


PROFESSIONAL 
hear MADE 


$59.95 
DATA BASE 
with Report Writer 


‘and mail Labels 


JUALITY 


-ASILY 


(1D INEXPENSIVELY 
Make signs up to 10” by any length * Borders are 


variable * 8 sizes of letters, 3% to 6%" high. 


tional spacing, centering, rt. & It. justification * 


15 textured backgrounds included 


Propor- 





included 
Font |, 
Disk 


optional optional 


Font 


conac 
CONDENS 
TALC 
teenies 

ear) Ds 








Printers: Epson MX (with Graftrax), RX, FX, JX, LQ; Gemini eo 
10 & 15; Commodore MPS 801, 1525E; Banana; Panasonic 


P1090; Seikosha GP100A; Riteman Il, Plus, 


nesmann Tally, Spirit 80, Okidata 82A, 83A with Okigraph, 


92A, 93A, Prowriter 8510, C. Itah 8510. 
THE BANNER MACHINE $49.95 Av: 


FONT DISKS (opt.) each $39.95 DISK only. 


Sy 
15, Man- OES 
ome 


ble on 
Cardinal Software 








f LENGE fo a J ‘ 
L v )\~7/ | 


é \ |RSS si a ee ae | / > | 
\ | a Lg io fe N YS J 


—eanl 
ECIT 





Shadow is ‘a new and revolutionary | 
way to back up your most protected Y 5 
software. It,encompasses all the latest 
advances in software, as well as a 
highly sophisticated piece of hardware. 
This is absolutely the best utility available 
today. You may not even need updates, but if 
you do, the Shadow's unique design allows for 
updates to be available for a nominal fee. 
By the time you place your order we ‘expect 
the Shadow to back up 100% — that's right, 100% — 
of all software available for the C-64. 














Order by phone 24 hrs./7 days or send cashier's check/money brder 
payable to Megasoft. Visa, MasterCard include card # and exp. date/ Add 
shipping/handling for continental U.S., $5.50 for UPS air. CODs add $7.50, 
4a add $10.00 Other foreign orders add $15.00 and remit certified U.S. funds 
only. Distributors invited and supported. 


INTRODUCTORY 
OFFER 


$89.95 





ttle Ground, Wast 
87-5205 Atter-Hours C 














INTRODUCING THE COMMODORE 128™ 


It’s here. And It's going to make a lot of 
Commodore 64™ owners very happy. 
Apersonal computer with a 128K 
memory and 80-column capability 
that's still compatible with all the 
peripherals and over 3,000 programs 
designed for the Commodore 64, 

In fact, the new 128 is almost like 
getting three computers in one. That's 
because it can run as a 64, a 128 and 
ina CP/M® mode. Or it can even be 
expanded to a full 512K memory. 
And that’s about as “personalized” 
as a personal computer can get. 

It's intelligence that can match your 


own versatility. And then, even take it 
to a higher level 


There’s more than a bigger memory. 


There are a lot of extra features 
we didn't forget. Like a handy numeric 
keypad for data-entry efficiency 
and accuracy. 

An expanded keyboard that puts 
more commands at your fingertips for 
easier programming. So you can be 
awhiz at using more varied graphics 
and text. Or a musical genius playing 
full three-part melody in any tempo 
you set. And there's even a “help” key 


that comes to your rescue, listing 
programming errors on-screen with 
the error in reverse field. 

There's also a new faster disk 
drive. With a separate "Burst" mode 
that can transfer up to 3,000 char- 
acters per second. Just in case you're 
a speed demon. 

“Thanks for the memory!” You‘re 
welcome. And for the expandability. 
And compatibility, And versity, And 
for raking it all Very affordable, After 
all, one of the other things that should 
go into a mgre intelligent computer 
is a price that makes sense. 


COMMODORE 128= PERSONAL COMPUTER 





*CP/M\Is a registered trademark of Diptal Resear 


A Higher Intelligence 


© Commodore 1985 


